Thema: Delphi F10 abfangen

Einzelnen Beitrag anzeigen

janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#1

F10 abfangen

  Alt 11. Feb 2003, 14:53
ich fange in meinem programm die tastendrücke folgendermaßen ab:

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    procedure WMKey(var Message: TWMKey); message WM_KEYDOWN;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMKey(var Message: TWMKey);
begin
  form1.Caption:=inttostr(message.CharCode);
end;
end.
das klappt soweit bei allen tasten die ich brauche, nur F10 verweigert die zusammenarbeit. normalerweise kommt man mit F10 in den meisten programmen ins menü, in meinem programm gibts aber kein menü, was mach ich falsch?
  Mit Zitat antworten Zitat