Delphi程序設計之--慣用法

領測軟件測試網

end;

如果你在某下拉菜單中，也需要執行類似功能則
procedure TMyForm.MenuItemClick(Sender: TObject);
begin
RunOperate(TMenuItem(Sender).Tag);
end;

//*說明：
1、結構清晰
2、相關的信息集中，比較容易查錯、修改和維護
3、提高程序的適應、擴展能力；比如現在要求不在工具欄按鈕中實現，而要求在不同按鈕中實現，則修改容易。
建議：每個分類后面只跟一行或不多的幾行代碼，如果代碼比較多，使用過程函數替代。
比較有意思的是，我經常如下寫：
Case btnMyButton.Visible of
{ 顯示 } True: ...
{不顯示} False: ...
end; *// 

文章來源于領測軟件測試網 http://www.kjueaiud.com/