- Azonnali VGA-s kérdések órája
- Az új Macbook Pro is beveti az M5-ös rendszerchipet
- Milyen belső merevlemezt vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- Nyomtató topik
- Vezetékes FEJhallgatók
- Kezdő fotósok digitális fényképei
- Bambu Lab 3D nyomtatók
- Milyen TV-t vegyek?
- Milyen Android TV boxot vegyek?
Ú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
- Renault, Dacia topik
- Kertészet, mezőgazdaság topik
- Azonnali VGA-s kérdések órája
- Az új Macbook Pro is beveti az M5-ös rendszerchipet
- exHWSW - Értünk mindenhez IS
- Milyen belső merevlemezt vegyek?
- Gitáros topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Autós topik
- További aktív témák...
- ÚJ ASUS ROG Hyperion GR701 E-ATX RGB Gépház
- Telefon felvásárlás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
- Telefon felvásárlás!! Samsung Galaxy S24/Samsung Galaxy S24+/Samsung Galaxy S24 Ultra
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3206
- Macbook Pro 2019 // i9 // 32GB / 2TB // Számla+Garancia //
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest