- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple iPhone Air - almacsutka
- Android Autót minden mobilra!
- Apple iPhone 16 Pro - rutinvizsga
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Magisk
- OnePlus 7T Pro - árban is a csúcson
- iPhone topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
Új hozzászólás Aktív témák
-
Tomi_78
aktív tag
válasz
Fire/SOUL/CD #2085 üzenetére
Az!
De még lenne egy apró kérdésem: az OnClick eseménnyel hívott függvény paraméterezhető vajon?
Mert valahogy így próbálkoztam, de nem tetszett a Lazarus-nak:
procedure epitvagyvesz(Sender: TObject; mit: string);
(...)
menupont.OnClick:=@epitvagyvesz('valami');
(...)
procedure TForm1.epitvagyvesz(Sender: TObject; mit: string);
begin
case mit of ...Tehát azt szeretném elérni, hogy a különböző menüpontok más paraméterrel hívják ugyanazt a függvényt az OnClick eseményükben. És most ezt egyéb lehetőség híján a Caption-jük segítségével oldom meg, mert az különböző:
case TMenuItem(Sender).Caption of
(...)
De nagyban megkönnyítené a helyzetemet a függvényparaméterezés lehetősége - ha ez lehetséges.
Új hozzászólás Aktív témák
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Kecskemét és környéke adok-veszek-beszélgetek
- GTA V
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Milyen légkondit a lakásba?
- Kínai és egyéb olcsó órák topikja
- exHWSW - Értünk mindenhez IS
- gban: Ingyen kellene, de tegnapra
- VGA kibeszélő offtopik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- További aktív témák...
- Kellys Gate 50 MTB - M méret
- Xbox Series X+Nacon Rig 700HX+Play&Charge Kit
- Új Gamer PC Ryzen 7 5800X/RTX 5060 + 11 Féle VGA/16-32Gb DDR4/500-1Tb SSD/600-850W 2-4Év gari
- ROG Strix G713PV 17.3" QHD IPS Ryzen 9 7845HX RTX 4060 16GB 512GB NVMe gar
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5500 / RTX 3060 12GB / 32GB DDR4 / 500GB SSD!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- ÚJ BONTATLAN Apple Macbook Air 15,3 M4 10C CPU/10C GPU/16GB/256GB - Égkék - HUN - mc7a4mg/a 3 év gar
- Gamer PC-Számítógép! Csere-Beszámítás! I7 10700K / RX 6700XT 12GB / 32GB DDR4 / 1TB SSD
- BESZÁMÍTÁS! ASROCK B650M R7 7700 32GB DDR5 1TB SSD RX 6900XT 16GB Enermax EQUILENCE 1000W
- Samsung Galaxy A50 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest