MessageDlg

[TStringlist]

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*)

[alcaeus]

Zitat von ColdFire:

dies funktion funktioniert nur mit der unit QDialogs nicht DIALOGS

Wenn ich mich recht erinnere dann ist QDialogs eine CLX-Unit, und wenn du mit der VCL arbeitest, solltest du diese nach Moeglichkeit weglassen, sonst musst du eine zusaetzliche DLL mit deinem Programm ausliefern

Greetz
alcaeus

[MathiasSimmack]

Zitat von alcaeus:

Wenn ich mich nicht ganz erinnere

Was will uns der Meister damit sagen?

[alcaeus]

Zitat von MathiasSimmack:

Zitat von alcaeus:

Wenn ich mich nicht ganz erinnere

Was will uns der Meister damit sagen?

Was denn? (siehe oben)
ist wohl noch zu frueh

Greetz
alcaeus

[ColdFire]

danke @ alcaeus ich arbeite mit VCL

schade dass das nicht so funktioniert wie ich will *gg*

lg @ all und schönes WE

[leddl]

Zitat von ColdFire:

schade dass das nicht so funktioniert wie ich will *gg*

Eigentlich sollte man gar nicht mehr antworten. Du bist ja anscheinend blind, was die richtigen Antworten angeht. Oder du liest nicht alle Posts. MathiasSimmack hat dich jetzt bereits mehrmals auf die Funktion MessageBox aus der Unit Windows hingewiesen... Nur scheinst du darauf keine Antwort geben zu wollen..

[Matze]

Und in meinem Tutorial ist das auch nicht so schlecht erklärt.