Brauche Hilfe mit Messagebox

[Natcree]

Ich habe einen Button der beim onclick ereignis ausgeführt wird
nun soll aber bevor er dies macht geprüft werden ob edit1.text='' ist dann soll die messagebox erscheinen und mit mb_ok den button1.click nicht ausführen und nochmals die eingabe für edit1.text ermöglichen. Habe alles versucht aber er führt die procedure button1click trotzdem aus

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

procedure TFormDings.ButtonWuppdiClick(Sender: TObject);
begin
  if DeinEdit.Text = '' then
    begin 
      MessageBox(0, 'Eingabe erwartet', 'Fehler', MB_OK or MB_ICONERROR);
      DeinEdit.SetFocus;
    end
  else
    ClickCode;
end;

[Natcree]

Gut habs damit versucht

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
begin
  if edit3.Text = '' then
     begin
      MessageBox(0, 'Eingabe erwartet', 'Fehler', MB_OK or MB_ICONERROR);
       edit3.SetFocus;
     end
   else  
........
end;

button2click durch die messagebox geblockt werden werden bis edit3.text nicht mehr '' ist.

muss ich den code der messagebox auf form.show setzen???

[DeddyH]

Sry, ich verstehe gerade nur Bahnhof. Wann soll die MessageBox denn kommen?

[Natcree]

wenn ich button2click ausführe soll er prüfen ob edit3.text='' ist. ist dies der fall dann soll er button2click nicht ausführen

[Der schöne Günther]

Spring doch einfach mit Exit() aus der Prozedur raus wenn die Dinge nicht so stehen wie du willst.

[Klaus01]

.. wenn Du den Button2 anklickst, wird immer Button2.onClick ausgeführt.

Du kannst dann in der onclick Routine des Button2 prüfen ob Edit1.text leer ist.
Wenn leer dann wieder zum Edit1 zurück, wenn nicht leer das ausführen was ausgeführt werden soll wenn Edit1.text nicht leer ist.

Grüße
Klaus

[DeddyH]

Ja eben, ich dachte, das würde mein Beispiel tun, oder war das so missverständlich?

[Natcree]

Das wars was mir gefehlt hat Danke

Delphi-Quellcode:

  
if edit3.Text = '' then
     begin
     if MessageBox(0, 'Eingabe erwartet', 'Fehler', MB_OK or MB_ICONERROR)= idok then exit 
else

...
end;

[DeddyH]

Das ist aber jetzt doppelt gemoppelt. Bei entsprechender Logik brauchst Du kein Exit, wenn Du Exit verwendest, brauchst Du keinen Else-Zweig :gruebel: