AW: Messagebox
Zitat:
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; |
Aw: Messagebox
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:
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'
if edt_name.Text ='Heidi' then
|
Aw: Messagebox
Hat doch @Bernhard Geyer geschrieben in #21 wie es geht! Schau dir sein Code an!
Gruss alfold |
Aw: Messagebox
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. |
Aw: Messagebox
Ich hab so leise Zweifel ob das überhaupt läuft:
Delphi-Quellcode:
Und in Welchem TEdit.Text soll was stehen damit Dein Programm richtig reagiert?
procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin if edt_ergebnis.Text ='' then exit; begin Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK); exit; end; begin if edt_name.Text ='Heidi' then exit; begin Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK); exit; end; Gruß K-H |
Aw: Messagebox
Was soll den diese ewige EXIT
Delphi-Quellcode:
procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin if edt_ergebnis.Text ='' then exit;//<--- weg damit begin Application.MessageBox('Eingabe ungültig','Achtung!',MB_OK); exit;//<--weg damit end; begin//<--weg damit if edt_name.Text ='Heidi' then exit;//<--weg damit begin Application.MessageBox('Du passt am besten mit Peter zusammen','Glückwunsch',MB_OK); exit;//<--weg damit end; end; |
Aw: Messagebox
So, nochmal das Ganze. Da wir Dein Projekt ja nicht kennen rate ich mal:
Delphi-Quellcode:
Vermutlich soll ja in beiden Fällen das Edit für den Namen ausgewertet werden, oder etwa nicht?
procedure TForm1.btn_ausrechnenClick(Sender: TObject);
begin if edt_name.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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:25 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz