- Hobby elektronika
- Computex 2024: Itt az új ROG Ally
- Hisense LCD és LED TV-k
- Nem indul és mi a baja a gépemnek topik
- Vezetékes FEJhallgatók
- 3D nyomtatás
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen videókártyát?
- Fejhallgató erősítő és DAC topik
- LG C4 tévé, a népszerű OLED-sorozat legfrissebb tagja
Hirdetés
-
Ezúttal bennfentes kereskedelemmel vádolják Elon Muskot
it A Tesla egyik részvényese perelte be Elon Muskot, 7,5 milliárd dolláros bennfentes kereskedelemmel vádolja őt.
-
Computex 2024: okosmonitorok az Acer standján
ph A tajvani vállalat smart portfóliójában azért akad olyan modell is, ami játszani sem utolsó választás.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
Ú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
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs