Hirdetés
- Pánik a memóriapiacon
- Fujifilm X
- Kormányok / autós szimulátorok topikja
- Melyik tápegységet vegyem?
- ASUS ROG Ally
- Az Intel korábbi vezére szerint a kvantumforradalom gyorsan elsöpri a GPU-kat
- Milyen videókártyát?
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Akciókamerák
- Milyen monitort vegyek?
Ú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
- 137 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080 - 4 ÉV GARANCIA!
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB DDR5 RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Samsung Galaxy A54 5G /8/128GB / Kártyafüggetlen / 12HÓ Garancia /
- Samsung Galaxy S22 8/128 GB Phantom White ÚJ, gariban cserélt! 6 Hónap Jótállás
- ÁRGARANCIA!Épített KomPhone i5 14400F 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest