eigener messagedlg

[FabianIBerlin]

Geht es das man bim messagedlg anstatt die vorgegebenen buttons wie mbok oder mbno auch eigene mit eigenem text wie "später" "jetz" halt irgendwas anderes!

[Speedmaster]

Messagedlg's sind IMHO auch nur Form's!! D.h. einfach ne neue erstellen!

[leddl]

Mit nur sehr wenig Aufwand hättest du bei ner Suche das hier gefunden.

[FabianIBerlin]

Zitat von leddl:

Mit nur sehr wenig Aufwand hättest du bei ner Suche das hier gefunden.

das hatte ich gefunden doh steht da meiner meinung nach nicht die antwort auf meine frage!

[Chegga]

Hi,

wenn du unbedingt einen eigenen Messagedlg willst,
dann kannst du dir ja wunderbar einen eigenen machen.
Einfach ein neues Formular, den Messagedlg nachbauen und an deine Bedüfnisse anpassen.
Wie du das machen kannst, verrät dir die DP-Suchfunktion.

MfG Marc

[Matze]

Zitat von Chegga:

Einfach ein neues Formular, den Messagedlg nachbauen und an deine Bedüfnisse anpassen.

Also das ist ja Mist

CreateMessageDialog werde ich noch in mein Dialog-Tut aufnehmen, nur habe ich gerade keine Zeit dafür.

[Chegga]

Hi,

Zitat von Matze:

Zitat von Chegga:

Einfach ein neues Formular, den Messagedlg nachbauen und an deine Bedüfnisse anpassen.

Also das ist ja Mist

CreateMessageDialog werde ich noch in mein Dialog-Tut aufnehmen, nur habe ich gerade keine Zeit dafür.

Auf den Link dieses Tuts mit CreateMessageDialog wurde in diesem Thread schon hingewiesen.
(Siehe Post von leddl)

Aber anscheinend hiflt ihm das nicht
und deshalb: *Klick*

MfG Marc

[leddl]

Warum ist das nicht das, was du suchst?
MaBuSe hat doch da gezeigt, wie man sich einen eigenen Dialog mit Buttoncaptions seiner Wahl erstellen kannst. Ich hatte es so verstanden, daß du genau das willst. Aber wenn du plötzlich deine Meinung änderst...

[Matze]

So fasse ich das auch auf, hier mit wenigen Kommentaren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  // 2 Buttons erzeugen, deren Beschriftung man dann anpasst
  f := CreateMessageDialog('Jetzt oder später?', mtInformation, [mbOk, mbCancel]);

  //Beschriftung anpassen
  (f.FindComponent('Cancel') as TButton).Caption := 'Jetzt';
  (f.FindComponent('OK') as TButton).Caption := 'Später';

  //Dialog anzeiegn
  f.ShowModal;
  f.Free;
end;

Die Rückgabewerte sind die selben, wie beim normalen Dialog eben auch.


Nachtrag: CreateMessageDialog ist besser als ich dachte.

[FabianIBerlin]

ok dann war das mein fehler hatte es anscheinend nicht richtig verstanden wenn es damals schon in der Code-Library drin stand!
edit: bzw. nicht gefunden