Message Box

[cylon]

Hi,
hat jemand nen einfachen code, mit dem man, bei anklicken eines buttons, ne message box öffnet??
Ich fand nämlcih bisher immer nur kompliezierte Codes... :roll:

[Duffy]

Hallo cylon,
einfach genug?

Delphi-Quellcode:

MessageDlg('Eine einfache Messagebox', mtInformation, [mbOK], 0);

bye
Claus

[Mirilin]

:hi:

Delphi-Quellcode:

procedure TMainForm.ButtonShowMessageClick(Sender: TObject);
begin
  Application.MessageBox('Message Text', 'Titel', MB_OKCANCEL);
end;

In der Hilfe findest Du weitere Informationen dazu

mfg Tobias

[cylon]

hey., die ist cool und einfach...
DANKE :-D

[cylon]

Ja OK...
aber ich hab noch ne frage.
wie kann man auf buttondruck ne neue form öffnen?? :dance:

[Duffy]

Hallo cylon,
wenn das zweite Form existiert ...

Delphi-Quellcode:

Form2.ShowModal

bye
Claus

[Yan]

Hi cylon!

Also hier noch ein paar Varianten (wenn du mal was anderes brauchst):

Anstatt:

Code:

MessageDlg('Text',mtInformation,[mbOK],0)

kann man auch schreiben:

• Für eine Warnung (Symbol):
  Code:

  MessageDlg('Text',mtWarning,[mbOK],0)

  Für eine Frage (Symbol):
  Code:

  MessageDlg('Text',mtConfirmation,[mbOK],0)

  Mehrere Buttons:
  Code:

  MessageDlg('Text',mtInformation,[mbYes,mbNo],0) // Man kann belibig viele Buttons angeben (glaube ich)

• Wenn du wissen möchtest, welchen Button der benutzer gedrückt hat:
  
  Code:

  if MessageDlg('Frage',mtWarning,[mbYes,mbNo],0) = mrYes then  // mr steht für "Message Result"
  begin  // Wenn Benutzer "Ja" gedrückt hat
  //...
  end
  else
  begin  // Wenn Benutzer "Nein" gedrückt hat
  //...
  end;

Ich hoffe ich konnte dir helfen!

[cylon]

ja das ist gut...
danke..

[merlin17]

cylon,

noch schöner geht es, wenn du die gexperts (GExperts)installierst und dort
dann im GExperts-Menü (in der Delphi - IDE) "Messagedialg" aufrufst.

:-) thomas

[MrKnogge]

beliebig viele Buttons angeben ?
ich dachte es gehen nur so art "vordefinierte Varianten" von MS
also OK oder OK und Cancel.....