Hier ein Beispiel mit 2 Edit-controls:
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Zeichen an Edit2 weiterleiten
Edit2.Perform(WM_CHAR, Integer(Key), 0);
// Zeichen für Edit1 nicht weiter bearbeiten
Key := #0; // evtl. auskommentieren
end;
Dies leitet alle "normalen" Zeichen von Edit1 an Edit2 weiter.
Damit auch die Cursortasten weitergeleitet werden:
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit2.Perform(WM_KEYDOWN, Key, 0);
end;