- Vivo X200 Pro - a kétszázát!
- Apple iPhone Air - almacsutka
- Okosóra és okoskiegészítő topik
- Apple Watch
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- iPhone topik
- Xiaomi 14T - nem baj, hogy nem Pro
- Xiaomi 15 - kicsi telefon nagy energiával
- VoLTE/VoWiFi
- Nem várt platformon a OnePlus Nord 5
Ú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
- Anglia - élmények, tapasztalatok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Lakáshitel, lakásvásárlás
- OLED monitor topic
- Vivo X200 Pro - a kétszázát!
- Apple iPhone Air - almacsutka
- Okosóra és okoskiegészítő topik
- Házimozi belépő szinten
- Székesfehérvár és környéke adok-veszek-beszélgetek
- Apple Watch
- További aktív témák...
- Iphone 15 Pro Max 512GB Natúr titán
- DELL Latitude 5520 Strapabíró Érintős Laptop 15,6" -65% i7-1185G7 16/512 Iris Xe FHD IPS
- Intel Core i7 10700/RTX3060/16Gb ram/256Gb SSD
- DELL Latitude 5520 Strapabíró Érintős Laptop 15,6" -65% i7-1185G7 16/512 Iris Xe FHD IPS
- DELL Latitude 5520 Strapabíró Érintős Laptop 15,6" -65% i7-1185G7 8/512 Iris Xe FHD IPS
- HIBÁTLAN iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3445, 97% Akkumulátor
- Honor 90 512GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! AMD Ryzen 9 3900X 12 mag 24 szál processzor garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A12/Samsung Galaxy A22/Samsung Galaxy A32/Samsung Galaxy A52
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RX 6800 16GB / 32GB DDR5 / 1TB SSD!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest