請問各位先進 如何把FindNextControl (function FindNextControl(CurControl: TWinControl; GoForward, CheckTabStop, CheckParent: Boolean): TWinControl;) 寫在一個unit上 並包成procedure 並供其他的Form呼叫使用 謝謝

不是很懂！你要表達的意思。 可否詳細說明。 FindNextControl 之後要幹嘛。 如： Function Test(OwnerCtrl:TWinControl;CurControl: TWinControl; GoForward, CheckTabStop, CheckParent: Boolean):TWinControl; begin Result := OwnerCtrl.FindNextControl(.....); end;

例如我有很多個Form 每個form都有很多個Edit 我希望可以指定每個Form中的 其中一個Edit的下一個Control 的onclick塞入一些事件 只是我希望 不需要一個Edit都寫 var OwnerCtrl:TWinControl; begin OwnerCtrl.FindNextControl(.....); end; 會出現undeclared identifer:FindNextControl 的訊息

您好: 那怎不把每一個Form的OnClick都指向同一個事件,這樣就能讓每各Edit都做 同一件事了,如果說很多Form都會作同樣的事情,再把那各程序獨立出來,讓每 各Form的每各事件都去呼叫他.

您好 可以用FindNextControl寫個範例嗎 謝謝

引言: 例如我有很多個Form 每個form都有很多個Edit 我希望可以指定每個Form中的 其中一個Edit的下一個Control 的onclick塞入一些事件 只是我希望 不需要一個Edit都寫 //var //OwnerCtrl:TWinControl; begin Obj:=Form1.FindNextControl(.....); Obj.OnClick:=Event; end; 會出現undeclared identifer:FindNextControl 的訊息

TWinControl.FindNextControl是protected method, 從外面正常來說call不到的.

原來如此 請問有別的替代方案嗎?

引言: 原來如此 請問有別的替代方案嗎?

參考Controls的FindNextControl源碼!! FindNextControl是呼叫GetTabOrderList的排列來尋找Control! 發表人 - jest0024 於 2005/05/02 14:13:12