procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); Hej Hej igen En annan lösning är att lägga koden i formulärets OnKeyPress. Tab med enter från edit
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?Sv: Tab med enter från edit
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
Key := #9;
end;
Fritt ur minnet
SvenSv: Tab med enter från edit
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 ;
SvenSv: Tab med enter från edit
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;