🚀 go-pugleaf

Jako, ze aktualnie zaczynam poznawac arkana wspanialego srodowiska
jakim jest Delphi, mam pewien problemik. Mam nadzieje, ze znajda tu sie
ludzie, ktorzy mi pomoga w zapewne, banalnym problemie.
Otoz. Mam formularz i przy jego zamykaniu (zdarzenie OnClose) ma
wyskakiwac okienko z pytaniem czy na pewno chce sie zamknac. Wiadomo -
uzylem MessageBox i jest ok. Dodatkowo na formularzu ma byc button
"Wyjscie", ktory robilby to samo, czyli zamykal formularz i tez mialoby
wyskakiwac to okienko z pytaniem. Tutaj mam problem, bo nie wiem jak to
rozwiazac, zeby przy zdarzeniu OnClick przycisku zamykalo formularz.
Ponizej przedstawiam kod:

<code>
unit zadanie_2b;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnWyjscie: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnWyjscieClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
   decision: integer;
begin
     decision := Application.MessageBox('Na pewno chcesz
zakończyć?','Potwierdzenie',MB_YesNo+MB_IconQuestion);

     if decision=IDYes then
        Action := caFree
     else
         Action := caNone;
end;
procedure TForm1.btnWyjscieClick(Sender: TObject);
begin
//tutaj jest wlasnie problem ;)
end;

end.
</code>

Bede wdzieczny za pomoc. :)

Tak BTW - jaka ksiazke byscie polecili do nauki Delphi. Do C++ mam
"Symfonie" do Pascala mam ksiazke Marciniaka, a co do Delphi? Hehe -
juz wspominalem o ksiazka w watku o e-bookach, ale chodzi mi tutaj
wlasnie o taka jedna dobra ksiazke...

-- 
Rafal "Raph" Grzegorek
Gadu-Gadu: #3307817**Tlen: raph007**Jabber: raph[-at-]chrome.pl
GLKS "Pelikan" Niechanowo - www.pelikan-niechanowo.prv.pl
Rzuc IE dla lepszej przegladarki - http://operapl.net/NIE/