BitBtn1屬性ModalResult.mrOk 請問大大它代表什麼意思ㄚ 是按了就產生mrok訊號嗎? 而另一端只要接受到mrok就觸發自己要做的動作嗎? 還有我想用Image改為讓它也產生mrok訊號,來代替BitBtn1的功能 可以嗎? 感謝!!

------
Xax

您好﹗    ModalResult是一個回傳值﹐其透過使用者的Click動作而判斷是哪個Button物件 被Click了﹐通用的ModalResult值除了您所說的mrOK之外﹐還有以下幾種﹕ mrNone; mrOK; mrCancel; mrAbort; mrRetry; mrIgnore; mrYes; mrNo; mrAll; mrNoToAll; mrYesToAll等﹒    除了對Button物件設定其ModalResult之外﹐也可直接用程式碼來控制﹐舉個例子如下﹕

在Form1的OnCloseQuery事件中
begin
  if MessageDlg('您确定要關閉這個Form嗎﹖, mtInformation,
    [mbOK, mbCancel] = mrCancel then
    Form1.CanClose := False;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

我做一點補充：    ModalResult 主要對應 Form 的Showmodal 方法。 例如：BitBtn1屬性ModalResult =mrOk 當對 BitBtn1 Click時，會告知 其Parent Form 結束視窗(ShowModal)。  然 Showmodal 的值就等於BitBtn1屬性ModalResult。 因此我們常常可以看到，確認視窗是否按下確認或取消。 是這樣的語法： Result := Form2.ShowModal = mrOK;    然BitBtn1 為TButton所繼承，因此也繼承其屬性。 在它的Click 事件中。

procedure TButton.Click;
var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  if Form <> nil then Form.ModalResult := ModalResult;
  inherited Click;
end;

因此若要讓Image 如同 Button 的ModalResult 效果。

procedure TForm2.Image1Click(Sender: TObject);
var
  Form: TCustomForm;
begin
  Form := GetParentForm(Self);
  if Form <> nil then Form.ModalResult := mrOK;
end;

如果要改寫元件，Override Click 事件即可。 參考 PS.這類問題，應至 VCL 討論區發表較正確。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

最近有點阿達！ 在Image1Click 事件，只需 ModalResult := mrOK; 而改寫元件，才需要 GetParentForm 的動作。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～