我現在將TEdit的驗證寫在OnExit的事件上, 但當按下ToolButton, 並不會觸發此事件, 若改成TSpeedButton則就沒問題, 但問題是..... 工具列上通常會有 "儲存" 和 "放棄" 兩種按鈕, 若是按儲存當然得要先觸發驗證, 若是按下放棄, 則便不需觸發驗證, 假設在某個TEdit上會驗證欄位不得空白, 若按下 儲存當然要警告不得空白, 但按下放棄時就算是空白也不能出現警告, 所以, 我選擇 使用ToolButton, 希望在按下儲存時能先觸發目前作用中TEdit的OnExit事件, 這樣的想法對嗎? 請教大家是如何實作這功能?

aeromika 你好

在儲存的ToolButton的onClick事件中    Begin
  Edit1.Onclick(Edit1);//觸發
  儲存的動作
  ....
End;    或是先定義一個Function saveCheck:Boolean;
然後 Edit1.onexit及儲存按鈕的OnClick中呼叫saveCheck 功能    

發表人 - chance36 於 2004/05/03 19:26:19

可以直接在ToolButton的OnClick事件裡,呼叫另一個個元件的SetFocus,藉以觸發原TEdit.OnExit事件

aeromika 你好:    我的看法, 還是不要用 ToolButton, 因為 ToolButton 並沒有獨立的 Window Handle.    以下的 Code, 是 Edit1.OnExit 當按了 "OKBtn" (TButton), 才會被觸發 ShowMessage.

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if (Activecontrol is TButton) and (TButton(Activecontrol).Name='OKBtn') then
    showmessage('Edit On Exit');
end;

多謝三位先進的解惑, 似乎Mickey版大的寫法好像比較易讀~~  但另一疑問是若

以Tbutton來講如果有兩個button1,button2將button1的tag 設為 11,button2 的tag 設為 12 將直接編輯button1 onclick事件並將button2的onclick 設為 button1 onclick procedure TForm2.button1Click(Sender: TObject); case Tcomponent(sender).tag of 11: begin showmessage('this is button1'); end; 12: begin showmessage('this is button2'); end; end;

嗯~~ 用tag來作index的判斷... good idea!! 感謝monkey66兄的經驗分享!!

引言:

另一種使用方法
procedure ButtonClick(Sender:TObject);
var Obj:TButton;
begin
  if Sender is TButton then begin
    Obj:=TButton(Sender);
    //這樣能直接拿哪個But按下的元件來處理
  end;
end;

學而時習之不亦樂乎!