procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := #0;
Edit3.SetFocus;
end;
end;

Jag kan komma vidare med SetFocus, vill inte ha Focus.
Det som händer då , det som står i Edit3 raderas.
Jag önskar att Enter fungerar som Tab.
Har försökt med SendKey, men ej lyckats, är någon som vet hur?

Hej
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Key := #9;
end;

Fritt ur minnet
Sven

Jag gjorde en test men jag blev kvar i samma edit.

Hej igen
Där ser man, det hade funkat i VB.
Så här kan du göra

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Begin
Edit2.SetFocus ;
Edit2.SelStart := Edit2.SelLength ;
end ;
end;

Om du vill att markören skall hamna först så kan du skriva
Edit2.SelStart := 0 ;

Sven

Hej
Mycket tack det fungerade.
/ Kenth

En annan lösning är att lägga koden i formulärets OnKeyPress.
Först måste man sätta KeyPreview till true.

KeyPreview := True;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
If ActiveControl is TEdit then
TEdit(ActiveControl).SelStart := TEdit(ActiveControl).SelLength;
end;
end;