Ú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
- MasterDeeJay: Noname 1TB-os SATA SSD teszt
- The Division 2 (PC, XO, PS4)
- sziku69: Fűzzük össze a szavakat :)
- Telekom mobilszolgáltatások
- Luck Dragon: Asszociációs játék. :)
- EA Sports WRC '23
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Kerékpárosok, bringások ide!
- Autós topik
- További aktív témák...
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- Jogtiszta Microsoft Windows / Office / Stb.
- Tablet felvásárlás!! Samsung Galaxy Tab A8, Samsung Galaxy Tab A9, Samsung Galaxy Tab S6 Lite
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- AKCIÓ! Lenovo Thinkpad P15 Gen1 15 FHD notebook - i7 10750H 16GB RAM 512GB SSD Quadro T1000 W11
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged