- Mini-ITX
- Bemutatkoztak az Arctic P Pro Reverse sorozatú, "tükrözött" légkavarói
- Rendkívül ütőképesnek tűnik az újragondolt Apple tv
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen Android TV boxot vegyek?
- Sajátos kábelmenedzsmenttel jöttek a belépőszintre a Lian Li tápjai
- OLED TV topic
- Melyik tápegységet vegyem?
- Milyen videókártyát?
- Milyen RAM-ot vegyek?
Új hozzászólás Aktív témák
-
_AnTi_
tag
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!
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Álláskeresés, interjú, önéletrajz
- LTE frekvenciák
- WoW avagy World of Warcraft -=MMORPG=-
- Mini-ITX
- Bittorrent topik
- Bemutatkoztak az Arctic P Pro Reverse sorozatú, "tükrözött" légkavarói
- Xbox Series X|S
- Lecsap az S26 Ultra az Exynos 2600-ra
- Honor Magic V2 - origami
- További aktív témák...
- Lenovo X13 Thinkpad Gen2 WUXGA IPS i5-1145G7 16GB RAM 256GB SSD Intel Iris XE Win11 Pro Garancia
- Bomba ár! HP Probook 440 G10 - i3-1315U I 16GB I 256SSD I 14" FHD I W11 I Cam I Garancia!
- Bomba ár! HP Probook 450 G10 - i3-1315U I 16GB I 256SSD I 15,6" FHD I W11 I Cam I Garancia!
- Bomba ár! HP ProBook 450 G8 - i5-1135G7 I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- Bomba ár! HP ProBook 450 G8 - i3-1115G4 I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- Bomba ár! Lenovo ThinkPad X13 G1 - AMD Ryzen 5 PRO I 8GB I 256SSD I 13,3" FHD I Cam I W11 I Gari!
- Számlás,garanciás SSD-k! Kèszletről!
- 4G Microsoft Surface Go 2 m3-8100Y 8GB 128GB 1 év garancia
- 152 - Lenovo LOQ (15IRH8) - Intel Core i5-12450H, RTX 4060
- Új monitor állvány- elegáns megoldás a dupla A/4-es papírcsomag helyett - csak össze lett szerelve
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest