- Luck Dragon: Asszociációs játék. :)
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- GoodSpeed: AMD Ryzen 9 9900X (100-100000662WOF)+ Samsung 990 PRO 2TB MZ-V9P2T0BW
- votlage71: Kábel menedzsment
- bambano: Bambanő háza tája
- Klaus Duran: Youtube AI szinkron
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
Hirdetés
Új hozzászólás Aktív témák
-
Tomi_78
aktív tag
Na de ez a hibajelenség miért van:
Van egy kilépésgomb a programomban, melyet így hozok létre és rendelem hozzá a kilépés kezelését végző függvényt:
kilepgomb:=TButton.Create(form1);
kilepgomb.Parent:=form1;
kilepgomb.Top:=2;
kilepgomb.Left:=2;
kilepgomb.Caption:='Esc';
kilepgomb.OnClick:=@kilepgombkatt;
Ugyanakkor az ESC billentyű lenyomásával is szeretném vezérelni a kilépést, ezért ez van a FormKeyDown-ban:if Key=VK_ESCAPE then
kilepgombkatt(form1)
else (...)
A kilepgombkatt()-ban ez történik:procedure TForm1.kilepgombkatt(Sender: TObject);
var valasz,stilus: integer;
begin
stilus:=MB_ICONQUESTION + MB_YESNO;
valasz:=Application.MessageBox('Biztosan ki akarsz lépni?', 'Megerősítés', stilus);
if valasz=IDYES then close;
end;
Ha rákattintok egérrel a gombra és a NO-t választom, és utána egér helyett az ESC gombbal próbálnám ezt megint aktivizálni, akkor nem történik semmi. Magyarán ezután csak az egérkattintással tudok kilépni.
Miért van ez így; mi történik a programban és hogyan javítható?
Új hozzászólás Aktív témák
Hirdetés
- Xiaomi Mi 11 - 8/256 - szürke
- Thinkpad T14 Gen2i 14" FHD IPS i7-1185G7 16GB 512GB NVMe gar
- ROG Zephyrus G14 GA403UV 14" 3K OLED Ryzen 9 8945HS RTX 4060 16GB 1TB NVMe IR kam gar
- T14 Gen2i 14" FHD IPS i5-1135G7 16GB 256GB NVMe magyar vbill ujjlolv IR kam gar
- X1 Carbon 12th 14" FHD+ IPS Ultra 5 135U 16GB 512GB NVMe ujjlolv IR kam gar
- Eladó szép állapotban levő Apple iPhone 12 Mini 64GB / 12 hó jótállás
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA XPG 600W
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Google Pixel 9 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- Ikea Eilif Paraván, asztali elválasztó
Állásajánlatok
Cég: FOTC
Város: Budapest