Jak zablokować space & enter

wszedzie szukalem i probowalem roznosci ale bez powodzenia.

Chodzi o to ze majac na formie bitbutton klikam w niego - wykonana zostaje procedura ktora laduje obrazek i nastepnie ustawia dragmode na automatic (choc sluzy to czemu innemu :) ) zeby nie dalo sie ponownie w niego kliknac bo enabled:=false powoduje ze obrazka nie widac co nie wchodzi w rachube. Wszystko byloby ok gdyby nie klawisze space i enter ktore powoduja klikniecie klawisza w przypadku kiedy ma on focus.

jak wiec zablokowac te klawisze ?

Na przycisk ma się dać kliknąć tylko raz, tak? To zadeklaruj sobie zmienną globalną typu boolean

var clicked:boolean=false;

I w onClick daj:

begin
 if not clicked then
  begin
   //tutaj to co ma się robić
   clicked:=true;
  end;
end;

// każdy komponent ma jeszcze własciwość Tag, którą można dowolnie wykożystać... Więc spróbuj tak :]

procedure TForm1.Button1Click(sender:TObject);
begin
 if (Sender as TButton).Tag=0 then
  begin
   //tutaj to co ma się robić
    (Sender as TButton).Tag:=1;
  end;
end;

dziala idealnie, dzieki [browar]