CreateMessageDialog

[daniel8520]

Tach zusammen,

ich hab mich grade mal daran versucht, mit dem MessageDialog auseinander zu setzen. Bin dabei aber mit der Syntax noch nicht ganz klar gekommen, vielleicht könnt ihr mir ja helfen:

Laut der Delphihilfe sieht die Syntax wie folgt aus:

Zitat:

function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;

Ich hab jetzt folgendes versucht:

Delphi-Quellcode:

CreateMessageDialog('Test',mtError,mbOK);

bekomm dann aber immer folgende Fehler

Zitat:

[Fehler] Main.pas(164): Inkompatible Typen: 'TMsgDlgButtons' und 'TMsgDlgBtn'

ich weiß ja, dass mbOK nicht dem Typ TMsgDlgButtons sondern TMsgDlgBtn entspricht, aber wie soll ich ihm den jetzt beibringen, dass er da n' OK Button erzeugen soll?


Danke für eure Hilfe im Vorraus!

[rsilo]

ich kenn

Delphi-Quellcode:

CreateMessageDialog('Test',mtError,mbOK);

nicht genau

aber mit

Delphi-Quellcode:

MessageDlg('Test',mtError,[mbOK]);

oder

Delphi-Quellcode:

MessageDlg('Test',mtError,[mbOK],0);

muesste es funktioniertn

rsilo

[Markus K.]

Hallo daniel8520,
so müsste es gehen.

Delphi-Quellcode:

CreateMessageDialog('Test',mtError,[mbOK]).Show;

Tschüß Markus

[daniel8520]

:gruebel:
Also die Synatxprüfung meckerkt jetzt nicht mehr. Aber wenn ich jetzt wie im Quellcode steht

Delphi-Quellcode:

procedure TMainForm.Button3Click(Sender: TObject);
begin
   CreateMessageDialog('Test',mtError,[mbOK]);
end;

auf Button3 klicke, tut sich gar nichts! :gruebel: :gruebel:

Und, dass mit dem Integer hintendran, ist nur bei MessageDlg.
:angle:
Oh!
Habs grad mit MessageDlg probiert-da geht's prima. Also mit

Delphi-Quellcode:

MessageDlg('Test',mtError,[mbOK],0);

Naja dann!
Danke und denkt dran: :dp:

[daniel8520]

Da fällt mir grad noch was ein:
Kann man in sonem Dialog auch irgendwie Zeileumbrüche erzeugen?

[rebugger]

'Zeile1'+#13#10+'Zeile2'

[SirThornberry]

einfach

Delphi-Quellcode:

messagedlg('Zeile1'#13#10'Zeile2', mtInformation, [mbOk], 0);

[daniel8520]

Danke!

P.S.: Die Osteraktion ist vorbei. Also: Signatur ändern!
:cheers:

[Markus K.]

Zitat:

Zitat von daniel8520

:gruebel:
Also die Synatxprüfung meckerkt jetzt nicht mehr. Aber wenn ich jetzt wie im Quellcode steht

Delphi-Quellcode:

procedure TMainForm.Button3Click(Sender: TObject);
begin
   CreateMessageDialog('Test',mtError,[mbOK]);
end;

auf Button3 klicke, tut sich gar nichts! :gruebel: :gruebel:

Du musst das Dialogfeld ja auch noch anzeigen z.B.

Delphi-Quellcode:

CreateMessageDialog('Test',mtError,[mbOK]).ShowModal;

Tschüß Markus