- Garmin topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- iPhone topik
- Poco F7 – bajnokesélyes
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Szakított a OnePlus és a Hasselblad
- 175 fotó, amit a Vivo X300 és X300 Pro kameráival készítettem
- Huawei Watch GT 5 Pro - egészség + stílus
- Google Pixel topik
Ú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 thenkilepgombkatt(form1)else (...)
A kilepgombkatt()-ban ez történik:procedure TForm1.kilepgombkatt(Sender: TObject);var valasz,stilus: integer;beginstilus:=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
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Apple MacBook
- One otthoni szolgáltatások (TV, internet, telefon)
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában…
- Nintendo Switch
- Kutyának sem kellenek a 8 GB-os VGA-k?
- Garmin topik
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Vége egy korszaknak: PlayStatonre is jön a Halo: Campaign Evolved
- További aktív témák...
- MSI Katana GF76 - 17.3"FHD 144Hz - i5-11400H - 8GB - 512GB - Win11 - RTX 3050 Ti - MAGYAR
- 2027ig GYÁRI garancia Lenovo V14 / Ryzen3-7320 / 8gb DDR4 ram / 500gb NvMe SSD / WIN11
- Moza R5 bundle +brake kit + formula es wheel eladó
- i5 9600K GEFORCE RTX 2060 6GB DDR6 16GB RAM Gamer PC
- Xiaomi Redmi Note 12 Pro 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! R7 2700X / GTX 1080Ti / 16GB DDR4 / 512 SSD!
- HIBÁTLAN iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3421
- HIBÁTLAN iPhone 14 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3238
- Nyugdíjazott laptopok :) Ingyen Foxpost!
- GeForce RTX 2060 (OEM HP) Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



