[Delphi] Przenoszenie kursora tekstu

0

Mam cos takiego:

Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
tekst : string;
If Key = #13 then
begin
Sleep(1000);
Edit2.Visible := true;
// wpisz cos w edit2
Edit2.Text := tekst;
...
end;

Z tym ze kursor tekstu zostal na Edit1, jak automatycznie przeniesc kursor aby mozna bylo wpisac tekst w Edit2. Naciskanie myszka nie wchodzi w gre, bo edit2 nie jest obramowane i jest w kolorze tla - tzn wyglada jak Label.

Pomocy!! --GW

0

Edit2.SetFocus

uzywanie Sleep jest stanowczo niezalecane. W Twoim wypadku uzylbym Timera.--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

1 użytkowników online, w tym zalogowanych: 0, gości: 1