Das Stichwort heißt hier: CreateMessageDialog
Delphi-Quellcode:
...
if OwnMessageDlg('kleiner Test !', mtWarning, [mbYes, mbNo, mbCancel], 'No') = mrNo then
begin
...
end;
...
function TForm1.OwnMessageDlg(const AMsg: string; ADlgType: TMsgDlgType; AButtons: TMsgDlgButtons; FocusTo : String) : TModalResult;
var DlgForm : TForm;
begin
DlgForm := CreateMessageDialog(AMsg,ADlgType,AButtons);
DlgForm.ActiveControl := TButton(DlgForm.FindComponent(FocusTo));
Result := DlgForm.ShowModal;
DlgForm.Release;
end;
Vor dem ShowModal dieses DlgFormulars sind hier nämlich alle seine Properties schön manipulierbar, also auch dessen ActiveControl.
(Edit: Nur die Formulierung (edit2: im Abschlusskommentar *g*) war noch nicht ganz optimal; ...edit3: und es gab doch noch 'ne Codezeile rauszuhauen *gg*)