Új hozzászólás Aktív témák

• #482 _AnTi_ tag Erick #467

  Új Válasz 2005-01-11 19:38:18 #482

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  _AnTi_

  tag

  válasz Erick #467 üzenetére

  Szia! Ezt egy ezer éves progimból szedtem ki, remélem segít (a billentyű nyomkodásra egy példa)!
  
  Private/public részben deklaráld mondjuk ezt:
  procedure gomb(var msg: tmsg; var handled: boolean);
  
  
  procedure TForm1.gomb(var msg: tmsg; var handled: boolean);
  var
  keybstate: Tkeyboardstate;
  begin
  case msg.message of
  WM_KEYFIRST..WM_KEYLAST:
  begin
  getkeyboardstate(keybstate);
  
  if (keybstate[VK_LEFT] and 128)=128 then
  balra;
  
  handled:=true;
  end;
  end;
  end;
  
  procedure TForm1.FormShow(Sender: TObject);
  begin
  application.OnMessage:=gomb;
  end;
  
  A billentyűkonstansokat megtalálod a helpben, ha rákeresel mondjuk a VK_LEFT-re! Így elvileg ha aktív a progid, akkor bármely billentyűt le tudod kezelni (ha van rá konstans). Természetesen, ha nagy hülyeséget írtam javítsatok ki!
  Bye!

  Szép vagyok és okos, ügyes és aranyos...

Új hozzászólás Aktív témák