Hey, habe das mit dem Setfocus ausprobiert:
form1.edit1.setfocus
//Editfeld ist ja in Formular 1
Aber es geht immer noch nicht.
Delphi-Quellcode:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
ANZ_KN:=strtoint(Edit1.Text);
if (ANZ_KN < 2) or (ANZ_KN > 10 ) then
showmessage('Wert nicht erwartet!')
else
begin
Form2.Show;
Form2.FormShow(Sender);
KN_ANZ_W := False;
end;
//Form1.show;
Edit2.Color:=clInactiveCaptionText;
Edit1.Color:=clWindow;
//Form1.show;
Form1.Edit2.setfocus;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
begin
ANZ_KA_KN[1]:=strtoint(Edit2.text); // Kanten von Knoten 1
Edit2.Color:=clWindow;
end;
Edit2Exit (Edit2 in der Tabulatorreihenfolge als nächstes dran) wird nicht beim Verlassen von Edit2 aufgerufen....
Hätte auch gedacht, dass das mit dem Focus klappen könnte... aber leider ist nichts passiert.