Prechod po editoch – Delphi – Fórum – Programujte.com

Zdravim, ako docielim to ze ked v Edite1 stlacim ENTER, prejde kurzor do Editu2? Zaujimave ze som sa s tym nikdy nestretol...{zeby nieco s events?}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then edit2.SetFocus;
end;

Vdaka !

uz som zohnal toto:
na EDIT na udalost OnKeyPress zaves tento kod:

IF Key=Chr(13) THEN Form1.ActiveControl:=Form1.FindNextControl((Sender as TEdit), true, true, true);

ale zda sa mi zlozitejsi ako tvoj,i ked funkcne su oba.

if key = 13 then edit2.SetFocus;:ms_0070:
bacha na focus pokud neni visible tak to zhuci chybou

if key = 13 then if Edit2.Visible then Edit2.SetFocus


praktictejsi je ten druhej kod