Lazarus a keyDown

[oraf]

Zdravim ,
resim pro mne nepochopitelny problem ,
vytvoril jsem okno a odchytaval zmackle klavesy vse fungovalo nez jsem dal do formu Button, pak to neodchytava nic, tak jsem tlacitko zase smazal ale uz to zase nefunguje nevite nekdo co s tim ?

Kód: [Vybrat]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLType,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
    ShowMessage('key');
case key of

VK_LEFT : begin
           ShowMessage('levo');
         end;
VK_RIGHT : begin
           ShowMessage('pravo');
           end;
VK_F  : begin
          ShowMessage('F');
              end;
VK_O :begin
        ShowMessage('O');
             end;
VK_SPACE: begin
          ShowMessage('space');
end;
 VK_Q :begin

      end;
VK_A :begin
          ShowMessage('A');

end;
VK_M :begin
   ShowMessage('M');
end;


end;


end;



procedure TForm1.FormShow(Sender: TObject);
begin
  Form1.BorderStyle:=bsNone;
  Form1.WindowState:=wsFullScreen;
end;

end.


[Myrmica]

Experimentuj s property:

Form1.KeyPreview := True;

[oraf]

to mnoho nezabralo a vubec se to chvoa nejak podivne , jako by si to pamatovalo nejake nastaveni ktere ale v kodu vubec neni , dal jsem tam kdysi BTN, s enabled:=false, pak to smazal a z kodu odstranil vse co se k tlacitku vazalo a ted kdyz pridam jakekoliv tlacito je enabled false, a i kdyz  nastavim true stale je neaktivni

[oraf]

Respektive vsechny komponenty co maji moznost enabled mam nastavene na False,  a neni mozne to nejak zmenit

[Myrmica]

Divné a u formuláře máš

Kód: [Vybrat]

Enabled := true; ?

Vytvoř nový project, jestli to bude fungovat.

Možná by pomohlo promazání projectu.