Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#12

Re: "Bitte eine Taste drücken" und dann Virtual Ke

  Alt 1. Dez 2005, 23:07
Hallo,
wenn du auch z.B die Tasten [Pos1] oder [F1], [F2] ... ins Edit schreiben willst dann so:
Delphi-Quellcode:
uses Menus;//<----Unit einbinden
//...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Edit1.Text := ShortCutToText(Key);
  key := 0;//<---- damit Taste nicht ausgeführt wird
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat