Új hozzászólás Aktív témák
-
Tangerine
senior tag
Hi!
Két rövid kérdésem lenne:
Van pl, egy ''ős'' form azon pl. egy Button1 gomb. Ennek a click eseményére feljön egy MessageDlg, és az Yes vagy No szerint elágazik. Ebből származtattam egy gyerekformot, de ebben szeretném az Yes ágat átírni. Jelenleg úgy műxik, hogy a gyerekben az ''inherited ;''-et kitörlöm, és átírom az egészet.
Kérdés1: Hogyan lehet csak a Yes ágat felülírni?
Kérdés2: Ciki kitörölni az inherited-et, vagy teljesen bevett dolog?
Itt a kódja:
Az ősben:
procedure TfrmOs.miKilepesClick(Sender: TObject);
begin
if RichEdit1.Modified then
begin
if MessageDlg('Biztosan kilép a programból mentés nélkül?',mtWarning,
[mbYes, mbNo], 0) = mrYes then Close
end
else
if MessageDlg('Biztosan kilép a programból?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then Close
end;
A gyerekben:
procedure TfrmHibaJavitas.miKilepesClick(Sender: TObject);
begin
inherited;
end;
így műxik:
procedure TfrmHibaJavitas.miKilepesClick(Sender: TObject);
begin
// inherited;
if RichEdit1.Modified then
begin
if MessageDlg('Biztosan kilép a programból mentés nélkül?',mtWarning,
[mbYes, mbNo], 0) = mrYes then Application.Terminate
end
else
if MessageDlg('Biztosan kilép a programból?',mtConfirmation,
[mbYes, mbNo], 0) = mrYes then Application.Terminate;
end;
Szóval csak annyit szeretnék a gyerekben változtatni, hogy a két MessageDlg Yes-ére ne ''Close'' legyen, hanem Application.Terminate
Köszi! -
Tangerine
senior tag
válasz
_thomas_
#321
üzenetére
Szívesen.
Egyébként nem tudom, hogy ilyen alap dolgok miért nincsenek gyárilag benne a delphiben. Nem lenne nagy ügy beépíteni egy deltree függvényt. Ugyanígy nincsenek benne a crt-s alap függvények ami a pascalban van, és konzolproginál gyakran kellhet, pl. clrscr, keypressed, readkey, gotoxy, stb.
Na mindegy, szerencsére ezekre már mások is rájöttek, és megoldották, csak meg kell találni a neten, és beépíteni a progiba. -
Tangerine
senior tag
Miért van az, hogy a FindFirst (Findnext) megtalál részben passzoló könyvtárakat is, mikor nem kellene?
Kicsit érthetőbben:
var
sr: tsearchrec;
begin
findfirst('c:\temp\*.shn',faanyfile,sr);
end.
Az eredmény az, hogy találatnak veszi a 'c:\temp\konyvtar.shnf' könyvtárat de nem veszi találatnak a 'c:\temp\file.shnf' fájlt.
Mitől lehet? Bug? Egyszerűen nem tudom rávenni, hogy felejtse el a 'c:\temp\konyvtar.shnf' könyvtárat ha nekem csak a '*.shn' kell. És csak könyvtár esetében csinálja.
[Szerkesztve] -
Tangerine
senior tag
Ezt találtam a neten:
Function cos(X: Extended): Extended;
The value x must be in radians. To convert from degrees to radians use DegToRad. For example, cos(60 degrees) in Delphi would be cos(DegToRad(60)) = 0.5.
A lényeg: cos(60 degrees) in Delphi would be cos(DegToRad(60))
A te példád helyesen:
B: Real;
A: Real;
C: Real;
bla bla bla;
A:=StrToFloat(Edit1.Text);
B:=Cos(degtorad(A));
C:=B;
Azaz a C-t ki ishagyhatod.
Új hozzászólás Aktív témák
- Minőségi ugrást hozhat a One új médiaboxa?
- Tőzsde és gazdaság
- Autós topik
- Gaming notebook topik
- One otthoni szolgáltatások (TV, internet, telefon)
- Milyen alaplapot vegyek?
- iRacing.com - a legélethűbb -online- autós szimulátor bajnokság
- Spórolós topik
- Horgász topik
- iPhone topik
- További aktív témák...
- Új, Gamer félgép - ASUS B860M-A WIFI + Intel Ultra 5 245K + TeamGroup Viper 2x16GB DDR5 6000MHz CL30
- Új Bontatlan Xbox Series X 1TB 2év gyártói gar! + Beszámítás (apple cuccok)
- Google Pixel 10 Pro XL 5G 256GB Jédezöld, 2 Év Garancia, Független, Használt, 3 hónapos
- Simagic P-2000 100nm hidraulikus sim racing pedal + haptic motorok
- Ujabb Prémium ólacska INGYEN MPL-el Phanteks XT PRO ULTRA
- AMD AM4-es HP OMEN 25L GT12 alaplapok - B550 chipset
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Jabra Speak2 75 MS Teams USB-bluetooth hangszóró
- Azonnali készpénzes AMD Radeon RX 7000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- LG 32GS95UX - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest