Ú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
Hirdetés
- Jo Nesbo: LEOPÁRD (nem olvasott)
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3176, 96% Akkumulátor
- Eladó karcmentes Apple iPhone 13 Pro Max 512GB / 12 hó jótállással
- Bezámítás! Lenovo Legion 5 17ACH6H Gamer notebook - R7 5800H 16GB DDR4 512GB SSD RTX 3060 6GB WIN11
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest