MESSAGEBOX

[Bernhard Geyer]

Zitat von DeddyH:

Stimmt, aber die stören den Ablauf nicht

Doch. Evtl. macht ja wegen dem exit die Funktion nicht das was sie soll

Delphi-Quellcode:

procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin
  if edt_ergebnis.Text ='' then
    Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK);
  else if edt_name.Text ='Heidi' then
    Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK);
end;

[Änabanäna]

Vielen Dank schon mal für die schnelle Hilfe.

Also den Quelltext hab ich schon mal ersetzt. Nur jetzt kommt immernoch nicht die Messagebox, dass Heidi mit Peter zusammen passt. Wenn ich nun irgendetwas in das erste edit-Feld eingebe, dann kommt die MessageBox 'Eingabe ungültig' und die soll eigentlich bei dem zweiten edit-Feld kommen.
Ehrlich gesagt, bin ich mir auch gar nicht so sicher, ob dieser Teil richtig ist

Code:

if edt_name.Text ='Heidi' then

Ist das richtig? Denn ich möchte ja, dass wenn man Heidi in das erste edit-Feld eingibt die MessageBox kommt ' Du passt am besten mit Peter zusammen'

[himitsu]

Statt einer MessageBox würde ich Anfängern eher den MessageDlg empfehlen.

Denn Application.MessageBox ist fast eine direkte Schnittstelle zu MessageBox (WinAPI),
wärend [OH][MessageDlg[/OH] einen VCL-eigenen Dialog darstellt und somit auch mehr anderen Delphi-Funktionen ähnelt.