Einzelnen Beitrag anzeigen

svern

Registriert seit: 22. Mai 2004
14 Beiträge
 
#4

Re: Edit feld und 2tes Formular

  Alt 21. Okt 2004, 17:24
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.
  Mit Zitat antworten Zitat