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

• #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!

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