Hallo,
ich habe ein Problem:
ich habe ein PageControl mit einer Seite.
Auf dieser Seite befinden sich ein paar Edits.
Ich möchte nun mit der Entertaste wie mit einem Tab von Feld zu Feld springen.
Ich habe mal einen Code dafür gefunden (siehe unten), der funktioniert aber nur, wenn sich die Edits auf der Form direkt befinden.
Was muss ich jetzt umbiegen, damits auch in dem PageControl funktioniert.
(ach ja - es gibt für PageControl kein KeyPress)
Code:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then
begin
Self.Perform(WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;
end;
mfg
Helmi