Hirdetés
-
Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
it Az AI-t kiszolgáló adatközpontok olyan nagy energiaigénnyel bírnak, hogy egyre több atomenergiára van szükség.
-
Ilyen lesz a SteamWorld Heist II
gp A folytatás a tervek szerint a nyár folyamán, pontosabban augusztus elején érkezik.
-
Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
ma Részletes anyag került fel az internetre a Sony idei középkategóriás telefonjáról, három helyett két hátlapi kamera várható.
Új hozzászólás Aktív témák
-
BatemanX
tag
1. Helpben file management routines-ra keress rá és kidobja az összes függvényt/eljárást, amire szükséged lehet.
2. Itt attól függ, mikor és milyen billentyűzetkombinációt akarsz hozzárendelni. Ha pl. csak annyirra van szükséged, hogy ha a Comboboxon állsz, mondjuk F5-re nyiljon le, az viszonylag egyszerű. Az OnKeyDown eseménykezelőhöz kell vmi ilyesmit rendelni:
procedure TForm1.DriveComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then
DriveComboBox1.DroppedDown := true;
end;
Ha viszont azt szeretnéd, hogy a formon bárhol álllva (tehát nem a DriveComboBox-on van a fókusz) és úgy reagáljon vmi billentyűkombinációra...nos az egy komplikáltabb dolog.''Budapest, hajnali fél három, gyenge szél, 14 fok. A hajam tökéletes, de azon a rohadt tesztszerveren még mindig 1000-es várakozási sor van...'' -F-ECT$ a WoW tesztszerverről.
-
Szalma
őstag
(Hát az elég fogós. Írni kell egy saját üzenet diszpeccselőt, amiben elcsíped a neked kellő windows message-kat, a többit pedig tovább passzolod. A fő form ablakának az üzenetkezelőjébe kellene beilleszkedned. WndProc környékén kell nézelődni, a VCL-ben megtalálod, onnan ki lehet lesni...
''Sajnos'' most nincs delfim, nem tudok pontosabb infóval szolgálni...)
Szeretettel:
Szalma -
BatemanX
tag
Hűha, akkor ehhez kicsit jobban a dolgok mélyére kell ásni. Most lehet, hogy sok hülyeséget fogok írni, a szakértőbbek majd kijavítanak, mivel amit leírok csak tapasztalati tényeken alapszik és nem ismerem hozzá a Delphi mélylélektanát.
Szóval a probléma ekkor az, hogy mindig az a komponens kapja meg a billentyűleütést, amelyiken a fókusz van, így 3 lehetőséged van:
Legrosszabb:
Minden formon lévő komponensed onkeydownjához odaírod a már említett kódot.
Valamivel egyszerűbb, de nem javasolt undorító heggesztés:
Override-olod a WndProc eljárást és figyeled a Message paraméterét. Ha az általad kívánt billentyűkombináció jön, meghívod a megfelelő eljárást.
Elegáns, jó megoldás:
Csinálsz egy ''hook''-ot a billentyűzet eseményekre. Erre most konkrét kódot nem írnék, mert elég komplikált, inkább google-ban keress rá a CallNextHookEx eljárárásra és a találatok között biztos lesz olyan ami rávilágít a megoldásra (annó én is ezt csináltam).''Budapest, hajnali fél három, gyenge szél, 14 fok. A hajam tökéletes, de azon a rohadt tesztszerveren még mindig 1000-es várakozási sor van...'' -F-ECT$ a WoW tesztszerverről.
-
_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!Szép vagyok és okos, ügyes és aranyos...
-
BatemanX
tag
Megynyitod helpet.
Beírod: ''File management routines''
Megnyitod a találatot és örülsz a huszonegynéhány eljárásnak, amivel az összes file/könyvtárműveletet el tudod végezni. (Pl könyvtár törlését a RemoveDir függvénnyel)''Budapest, hajnali fél három, gyenge szél, 14 fok. A hajam tökéletes, de azon a rohadt tesztszerveren még mindig 1000-es várakozási sor van...'' -F-ECT$ a WoW tesztszerverről.
Új hozzászólás Aktív témák
- EDIFIER R1700BTS hangfal pár makulátlan, új állapotban, 2 év hivatalos garanciával, alkalmi áron
- LG OLED55B23LA 2 Év GYÁRI GARANCIA
- Apple iPhone XR 128GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC , i7 12700KF , RTX 3080 Ti , 64GB DDR5 , 960GB NVME , 1TB HDD
- Intel PC , i5 8500 , 1660 6GB , 32GB DDR4 , 512GB NVME , 500GB HDD
- D-Link DIR-842 kétsávos, Gigabites router - Foxpost az árban!
- H96 MAX RK3318 TV okosító - 2/16 GB - Új!
- MacBook Pro 13" 2016, i5 2.0GHz, 8GB Ram, 256GB SSD - rossz saját képernyővel, occón!
- Logitech G502 X vezetékes gaming egér, fehér, akár 25600 DPI
- Garett GRC Maxx okosóra, fekete, Android és iOs kompatibilis
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen