Código Delphi [-]procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin PostMessage(FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil), WM_KEYDOWN, Key, 0); end;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin PostMessage(FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil), WM_KEYDOWN, Key, 0); end;