Fehler in if Abfrage

[superstar025]

Habe folgenden Quellcode

Delphi-Quellcode:

if messagedlg ('Kategoriewert nicht vorhanden. Bitte ändern!', mtWarning, [mbYes], 0) = mrYes
    then begin combobox1.SetFocus
    else

  query10.ParamByName('kkat_bez').AsString := ComboBox1.Text;
  query10.Open;
  ComboBox3.Items.Add(query10.Fields[0].asstring);
  query10.Close;
  combobox3.ItemIndex:=0;

Nun ist mein Problem das das programm obwohl ich die message box mit ok bestätige nicht den Focus setzt sonder den Lauf weiter macht und in die query schleife geht wo nun der parameter nicht gefüllt ist, da er nicht in der Datenbank vorhanden ist.

warum geht er eigentlich noch weiter er müsste doch eigentlich den focus im combobox1 feld behalten und dann da auch stehenbleiben.

:wall:

mfg matthias

[jfheins]

Probier mal:

Delphi-Quellcode:

if messagedlg ('Kategoriewert nicht vorhanden. Bitte ändern!', mtWarning, [mbYes], 0) = mrYes 
    then combobox1.SetFocus 
    else 
begin

  query10.ParamByName('kkat_bez').AsString := ComboBox1.Text; 
  query10.Open; 
  ComboBox3.Items.Add(query10.Fields[0].asstring); 
  query10.Close; 
  combobox3.ItemIndex:=0;

...

[Neutral General]

@ jfheins : das end; nach dem else Abschnitt nicht vergessen ;)