- iPhone topik
- Vodafone mobilszolgáltatások
- Telekom mobilszolgáltatások
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Eleglide C1 - a középérték
- Milyen okostelefont vegyek?
- Android szakmai topik
- DIGI Mobil
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
Hirdetés
-
Premier előzetest kapott a V Rising
gp Napokon belül befut a teljes PC-s kiadás, az év során pedig megkapjuk a PlayStation 5 változatot.
-
Két Zen 5-ös dizájnjának mintáit is szállítja már az AMD
ph A szerverpiacra szánt Turin platform, illetve a mobil szintre nevező Strix Point érhető el a főbb partnerek számára.
-
Kapnak egy rakás reklámot a Roblox játékosai
it Videohirdetésekre készülhetnek ezentúl a virtuális világokban a Roblox játékosai.
Ú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.
-
BatemanX
tag
Felhasználónév:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen) ;
If GetUserName(PChar(UserName), UserNameLen) Then
Label1.Caption := UserName;
end;
A jogokat passzolom.''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.
-
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.
-
BatemanX
tag
Na ja. A WndProc-cal való szembenállásom onnan eredeztethető, hogy ha nem vigyáz nagyon az ember, itt keletkezhetnek a legszebb Access Violation hibák (amik néha a fejlesztőkörnyezetet is hazavágják...ó hány órányi munkám veszett oda 1-2 alkalommal emiatt ) és az ide írt kódrészek szinte teljesen ''debugolhatatlanok''. (Próbáljon az ember egy olyan eljárásba flag-et helyezni, ami már akkor meghívódik, ha megmozdítja az egeret.)
Nekem a hook sokkal jobban bevált.''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.
-
BatemanX
tag
válasz Terrorista #493 üzenetére
FileName : string;
...
FileName := FileListbox1.Items[FileListbox1.ItemIndex];''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.
-
BatemanX
tag
válasz Flashback #501 üzenetére
Megvannak azok a komponensek, csak nincsennek kirakva a komponenspalettára (nem tudom miért). A lehetőségeid a következők:
A usesben elhelyezed a ScktComp, Sockets, Winsock unitokat és utána már használhatod a TServerSocket és TClientSocket objektumokat, persze ekkor kódból kell létrehozni őket. A másik lehetőség, hogy vmelyik package-ben el kell helyezni az ScktComp unitot (sajna nem emlékszem melyikben), ezután az internet palettán megjelennek a komponensek.''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.
-
BatemanX
tag
válasz Flashback #505 üzenetére
Akkor lehet, hogy csak a Socket unitot kell hozzáadni. Már régen csináltam, így nem emlékszem, csak arra, hogy én is szoptam egy fél napot, mire sikerült összehozni.
''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.
-
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.
-
BatemanX
tag
válasz Flashback #521 üzenetére
Azt előbb is írhattad volna, hogy a Tcp komponensek is jók. Én azt hittem, hogy a ServerSocket-re és ClientSocketre van szükséged.
''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.
-
BatemanX
tag
válasz Flashback #523 üzenetére
A Socket komponensek sokkal fapadosabbak, de gondoltam valami spéci okból keresed őket, mivel a Tcp komponenseket megtalálod, ha egyszer végigkattintgatod az összes fület a palettán.
''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
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kerékpárosok, bringások ide!
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Milyen NAS-t vegyek?
- Milyen monitort vegyek?
- HP ProLiant MicroServer Gen8
- Helldivers 2 (PC, PS5)
- Milyen TV-t vegyek?
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- További aktív témák...