...type
tformhycx = class(tformmdi)
private
procedure menuitemclick(sender:tobject);
end;
...procedure tformhycx.formcreate(sender: tobject);
vari:integer;
begin
inherited;
for i:=0 to popupmenu.items.count-1 do
popupmenu.items[i].onclick:=menuitemclick;
end;
...procedure tformhycx.menuitemclick(sender: tobject);
begin
case tmenuitem(sender).tag of
100:showgridcoleditora(tdbgrideh(activecontrol));
101:findpublicshowa(tdbgrideh(activecontrol).datasource.dataset);
102:showfilterforma(tdbgrideh(activecontrol).datasource.dataset);
103:showgroupa(tdbgrideh(activecontrol));
104:expdbgrideha(tdbgrideh(activecontrol));
105:prnta(tdbgrideh(activecontrol),self);
end;
end;
面向過程的門面模式
unit hello1 inte ce uses dialogs procedure sayhello implementation procedure sayhello begin showmessage hello one end end.unit hello2 inte ce uses dia...
Java面向過程與物件導向的思維模式
如果面對複雜的事情，這種思維模式會陷入令人發瘋的狀態！比如 如何造神舟十號！物件導向的思維模式 說白了就是分類思維模式。思考問題首先會解決問題需要哪些分類，然後對這些分類進行單獨思考。最後，才對某個分類下的細節進行面向過程的思索。這樣就可以形成很好的協作分工。比如 設計師分了10個類，然後將10個類...
設計模式學習筆記 3 物件導向與面向過程
程式設計正規化 面向過程和物件導向 eg.從users.txt 中讀取使用者資訊，格式化成name tage tgender,並且按照age大小排序後寫入另外乙個檔案 面向過程和物件導向的區別 組織方式不同，面向過程風格的 被組織成一組方法集合和資料結構，資料和方法的定義是分開的，物件導向風格的 則...