請問 SpeedButon 是否可以使用 ModalResult 回傳按鈕按下狀況

Hi zombit,    可以，自己於 SpeedButton 的 OnClick 事件加入程式碼即可：

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  ModalResult := mrOK;
end;    procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝 Fishman, 我補充一下 就是要先將表單做 Close 的動作, 如果是 ModalResult 在 Close 之前, 就不行. Self.Close; ModalResult := mrOK;