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:

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:

Zitat von alcaeus

Wenn ich mich nicht ganz erinnere

Was will uns der Meister damit sagen? :gruebel:

[alcaeus]

Zitat:

Zitat von MathiasSimmack

Zitat:

Zitat von alcaeus

Wenn ich mich nicht ganz erinnere

Was will uns der Meister damit sagen? :gruebel:

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

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:

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.. :roll:

[Matze]

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