Új hozzászólás Aktív témák

• #1236 Tangerine senior tag wolffy #1235

  Új Válasz 2006-05-17 13:43:36 #1236

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz wolffy #1235 üzenetére

  nézz körül a torry-n, hátha [link]
  
  [Szerkesztve]

• #1050 Tangerine senior tag Jester01 #1049

  Új Válasz 2005-12-23 19:37:18 #1050

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz Jester01 #1049 üzenetére

  Köszi.
  
  Közben rájöttem, hogy egyszerűbb az ősben átírni application.terminate-re, és akkor mindkét helyen jó lesz.

• #1048 Tangerine senior tag

  Új Válasz 2005-12-23 18:46:46 #1048

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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!

• #543 Tangerine senior tag yksz #542

  Új Válasz 2005-01-31 13:00:08 #543

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz yksz #542 üzenetére

  1. POS függvénnyel soronként.
  2. beolvasod a szöveget soronként és hozzáadod egy ansistringhez, majd a végén ebben a POS függvénnyel.
  
  (nem vagyok biztos, hogy a 2-es működik)
  

• #325 Tangerine senior tag KovacsUr #324

  Új Válasz 2004-12-08 20:05:16 #325

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz KovacsUr #324 üzenetére

  Értem. Azért a Delphi helpben megemlíthették volna, valami apróbetűs részben.
  Köszi mégegyszer!

• #323 Tangerine senior tag _thomas_ #321

  Új Válasz 2004-12-08 19:54:55 #323

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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.
  

• #322 Tangerine senior tag KovacsUr #320

  Új Válasz 2004-12-08 19:47:54 #322

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz KovacsUr #320 üzenetére

  Jaaa....
  
  Szóval ez egy ismert dolog. Ha szar, akkor szar azt hittem én csesztem el valamit.
  Köszi, jó tudni, hogy akkor ezt kézzel kell kiküszöbölni. Teljesen véletlenül vettem észre.
  Köszi szépen!!

• #319 Tangerine senior tag

  Új Válasz 2004-12-08 16:22:34 #319

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  Úgy látszik rosszul fogalmaztam, félreértettél.
  Nem az a gondom, hogy nem tudom kiválogatni könyvtárakat/fájlokat, hanem az hogy miért ''illeszkedik'' a 'xxx.shnf' a '*.shn'-re? De csak akkor, ha az 'xxx.shnf' könyvtár? Teljesen illogikus.
  

• #317 Tangerine senior tag

  Új Válasz 2004-12-08 15:02:31 #317

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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]

• #313 Tangerine senior tag _thomas_ #312

  Új Válasz 2004-12-07 23:23:14 #313

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz _thomas_ #312 üzenetére

  Nézd meg eztet: http://www.latiumsoftware.com/en/delphi/00016.php

• #284 Tangerine senior tag lao ce #281

  Új Válasz 2004-12-04 17:05:52 #284

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz lao ce #281 üzenetére

  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.
  
  

• #279 Tangerine senior tag yksz #278

  Új Válasz 2004-12-03 23:08:22 #279

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz yksz #278 üzenetére

  Nem tom. Nálam műxik. Alul csak kiír valamit.
  Beraktad a MATH komponenst a uses-hez?
  

• #277 Tangerine senior tag Hani #275

  Új Válasz 2004-12-03 19:30:26 #277

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tangerine

  senior tag

  válasz Hani #275 üzenetére

  Jól emléxel.
  
  Annyi plusz, hogy a paramstr(0) az útvonal+progi együtt. pl. ''c:\progi.exe''

Új hozzászólás Aktív témák