Tastendruck weiterleiten

[shmia]

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;