|
| Autor | Správa |
|---|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 908
 |  Zaslal: So 06.02.10 13:04 |   |
Dalo by sa to vytvorením takejto funkcie:
| kód: | function KeyPressed: integer;
var i: integer;
begin
for i:= 0 to 255 do
if ((GetKeyState(i) and 128) = 128) then begin
result:= i;
exit;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case KeyPressed of
VK_UP: Memo1.Lines.Add('vpred');
VK_DOWN: Memo1.Lines.Add('vzad');
end;
end; |
|
| |
   |
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
