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.
mfg matthias