keyb_event schreibt kein ñ

[hathor]

Dann mach es so:

Klicke ins Edit1, tippe Strg+a
klicke ins Edit2, tippe Strg+b

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (ssCtrl in Shift) and (Key = 65) then   //ctrl a
    SendMessage(Edit1.Handle, WM_CHAR, Ord(#0209), 1);
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (ssCtrl in Shift) and (Key = 66) then   //ctrl b
    SendMessage(Edit2.Handle, WM_CHAR, Ord(#0241), 1);
end;