I use MessageDlg but when the message dialog pop up, the default selection appear on the Yes button, i need default appear on No button. Thanks for help. 發表人 - kienwoon 於 2004/12/27 15:24:25

hi,kienwoon   特此更正，刚看错了，不好意思 建议改成 class="code"> function DefMessageDlg(const aCaption: string; const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; DefButton: Integer; HelpCtx: Longint): Integer; var i: Integer; btn: TButton; begin with CreateMessageDialog(Msg, DlgType, Buttons) do try Caption := aCaption; HelpContext := HelpCtx; for i := 0 to ComponentCount - 1 do begin if Components[i] is TButton then begin btn := TButton(Components[i]); btn.Default := btn.ModalResult = DefButton; if btn.Default then ActiveControl := Btn; end; end; Result := ShowModal; finally Free; end; end; procedure TForm1.Button3Click(Sender: TObject); begin if DefMessageDlg('Please confirm', 'Do you want to go home now?', mtConfirmation,[mbYes,mbNo], mrno, 0) = mrYes then ShowMessage('success...'); end; try try see~ ~~~行径窄处，留一步与人行~~~ 發表人 -

請Copy C:\Program Files\Borland\Delphi6\Source\Vcl\Dialogs.pas 至您的專案目錄 尋找CreateMessageDialog這個function 大概是1800行那 修改為 if B = DefaultButton then Default := True; if B = mbNo then TabOrder:=0; //加入這行 if B = CancelButton then Cancel := True;

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

Thank Deity and Shinjie  > >