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

CreateMessageDialog('Test',mtError,mbOK); nicht genau

aber mit

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

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

rsilo

[Markus K.]

Hallo daniel8520,
so müsste es gehen.
CreateMessageDialog('Test',mtError,[mbOK]).Show; Tschüß Markus

[daniel8520]

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!

Und, dass mit dem Integer hintendran, ist nur bei MessageDlg.

Oh!
Habs grad mit MessageDlg probiert-da geht's prima. Also mit
MessageDlg('Test',mtError,[mbOK],0); Naja dann!
Danke und denkt dran:

[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
messagedlg('Zeile1'#13#10'Zeile2', mtInformation, [mbOk], 0);

[daniel8520]

Danke!

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

[Markus K.]

Zitat von daniel8520:

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!

Du musst das Dialogfeld ja auch noch anzeigen z.B.
CreateMessageDialog('Test',mtError,[mbOK]).ShowModal; Tschüß Markus