Fehlermeldungsgenerator

**N47R0N**

Hi ich habe ja schonmal was Über den Fehlermeldungsgenerator gepostet und habe nun ein Problem unzwar :

Mein Code:

Delphi-Quellcode:

			var

f: TForm;

begin

if Label35.Caption='mtError' then

begin

  f := CreateMessageDialog(''+txtMessage.Text+'', mtError,[]);

  f.Caption:=txtCaption.Text;

  f.ShowModal;

  f.Free;

end;

Wie ihr set ist der teil wo am ende eigendlich reinkommt ob man einen OK Abbrechen Wiederholen und so weiter Button haben will ausgelassen
f := CreateMessageDialog(''+txtMessage.Text+'', mtError,[]); Ich habe es so geplant das wenn man ein RaidioButton auswählt wie z.B OK , soll in die Leere spalte dann automatisch ein mbOk reingeschrieben werden:
f := CreateMessageDialog(''+txtMessage.Text+'', mtError,[mbOk]); So soll der Code dann letztenendes aussehen , ist sowas m#glich???

Ich danke für jede Antwort

Fehlermeldungsgenerator

Fehlermeldungsgenerator

Forumregeln