Odchytenie close – Delphi – Fórum – Programujte.com

Potrebujem odchytit klik na [x] aplikacie. Aby som z tlacitka X spravil minimalizovanie do tray alebo dal napr messagebox ci si ozaj uzivatel zela uzavriet aplikaciu. ako nato?

Event OnClose od Formu.

OnCloseQuery http://docwiki.embarcadero.com/CodeSamples/en/OnCloseQuery_%28Delphi%29

liborb napsal:
Event OnClose od Formu.

TooM7 napsal:
OnCloseQuery http://docwiki.embarcadero.com/CodeSamples/en/OnCloseQuery_%28Delphi%29

tak to asi spatne pouzivas, me to fungovalo v pohode, hod sem kdyztak tvuj kod..

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)



  private



    { Private declarations }

  public

     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  if MessageDlg('Close the form?', mtConfirmation,

    [mbOk, mbCancel], 0) = mrCancel then

     CanClose := False;

end;





end.

zadnou chybu tam na prvni pohled nevidim, jen me napada, nechal sis tu udalost do kodu automaticky vlozit (poklikanim na OnCloseQuery v Events formu) a pak si tam dopsal ten kod s MessageDlg nebo to je cele jen copy&paste? jinak tezko rict, delphi ted nemam nainstalovane tak to nemuzu zkusit, ale vim ze jsem s tim kdysi delal a fungovalo to v pohode...

jo, dopisal som to rucne cele. Dik za pomoc, uz to ide

Jen tak mimochodem to funguje i v OnClose (alespoň v D6). Dokonce je to jako příklad v helpu, ale kdo by četl help :smile1:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

	if MessageDlg('Close application ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

		Action := caFree

	else

		Action := caNone;

end;