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

Delphi-Quellcode:

  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:

Delphi-Quellcode:

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

So soll der Code dann letztenendes aussehen , ist sowas m#glich???

Ich danke für jede Antwort

[glkgereon]

per case:

Delphi-Quellcode:

case RadioGroup1.ItemIndex of
  0: MsgSet := [mbOK];
end;

und kurz ne bemerkung: mach es doch per Application.MessageBox()...

[N47R0N]

ne das ist nicht so gut weil man da nicht die überschrift der Meldung einstellen kann.

Oder weißt du wie man das macht

[Chegga]

Hi,

Zitat:

Zitat von N47R0N

ne das ist nicht so gut weil man da nicht die überschrift der Meldung einstellen kann.

Das wäre mir ja ganz neu!
Bevor du solche Aussagen triffst, empfehle ich dir einmal das Tutorial von Matze druchzulesen. :roll:

MfG Marc

[N47R0N]

Hab ich schon überflogen werds mir mal genauer ansehen

[Pr0g]

Delphi-Quellcode:

Application.MessageBox('Meldung', 'Titel', MB_OK or MB_ICONEXCLAMATION);

Die passenden Parameter kannst du auch in der MSDN nachlesen Link.

MfG Pr0g

[Zacherl]

Hallo,

Application.MessageBox(Text, Titel, Icon+Buttons);

Icon+Buttons Wert addieren:

Icon: 16: Fehler
32: Meldung
64: Frage
48: Warnung

Buttons: 0: Keiner
4: Ja, Nein

Das sind nicht alle Buttons, hab die Anderen aber nicht mehr im Kopf...

Florian

[Chegga]

Zitat:

Zitat von Florian Bernd

Application.MessageBox(Text, Titel, Icon+Buttons);

Icon+Buttons Wert addieren:

Icon: 16: Fehler
32: Meldung
64: Frage
48: Warnung

Buttons: 0: Keiner
4: Ja, Nein

Das sind nicht alle Buttons, hab die Anderen aber nicht mehr im Kopf...

Genau aus diesem Grand gibt es ein tolles Tutorial von Matze:
*Klick*
Darauf wurde oben allerdings schon hingewiesen. :wink:

MfG Marc

P.S.: Das Thema müsste jetzt eigentlich erledigt sein. -

[N47R0N]

So habs geschaft , mit nem etwas anderen source aber hauptsache es geht .

Delphi-Quellcode:

 var TSum : LongInt;
     MCapt, MText : PChar;
     MT, RT : string;
     i : integer;
begin
uses main, Unit1;

 var
  CIcon : integer;
  IconConst : array [0..4] of integer=(0, MB_ICONEXCLAMATION,
         MB_ICONINFORMATION, MB_ICONSTOP,  MB_ICONQUESTION);
{$R *.dfm}

procedure TForm3.sbNoIconClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbNoIcon.Glyph;
  CIcon:=0;
end;

procedure TForm3.sbWarningClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbWarning.Glyph;
  CIcon:=1;
end;

procedure TForm3.sbInfoClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbInfo.Glyph;
  CICon:=2;
end;

procedure TForm3.sbStopClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbStop.Glyph;
  CIcon:=3;
end;

procedure TForm3.sbQuestClick(Sender: TObject);
begin
  image1.Picture.Bitmap:=sbQuest.Glyph;
  CIcon:=4;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 CIcon:=0;
end;

procedure TForm3.cmdTestClick(Sender: TObject);
 var TSum : LongInt;
     MCapt, MText : PChar;
     MT, RT : string;
     i : integer;
begin
 TSum:=0;
 case rgType.ItemIndex of
  1 : TSum:=MB_ABORTRETRYIGNORE;
  2 : TSum:=MB_OKCANCEL;
  3 : TSum:=MB_RETRYCANCEL;
  4 : TSum:=MB_YESNO;
  5 : TSum:=MB_YESNOCANCEL;
 end;
 TSum:=TSum+IconConst[CIcon];
 getMem (MCapt, 100);
 StrPCopy (MCapt, txtCaption.Text);
 RT:='';
 MT:=txtMessage.Text;
 for i:=1 to Length (MT) do
  if MT[i]='|' then RT:=RT+chr(13)+chr(10) else RT:=RT+MT[i];
 getMem (MText, 500);
 StrPCopy (MText, RT);
 MessageBox (Form3.Handle, MText, MCapt, TSum);
 freeMem (MText);
 freeMem (MCapt);
end;

Nu wollt ich fragen ob man die ausgabe der meldung per Clientsocled und ServerSocked an andere schiken kann sodas die fehlermeldung auf ihrem rechner erscheint .

Bild : http://www.mitglied.lycos.de/baninam.../Unbenannt.JPG

[Ultimator]

Ja, geht auch.

Musst halt auf dem empfangenden PC einen ServerSocket laufen lassen, der eine MessageBox öffnet, sobald der PC, der den Client laufen hat, diesem eine Nachricht schickt, in dem Überschrift, Buttons, Icons usw. drinstehen. Diese Nachricht muss der Server dann parsen und die gewünschte MessageBox ausgeben.