Delphi i problemik

Thread View: alt.pl.mag.at

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Raph Tue, 03 May 2005 16:51

#35985

Author: Raph
Date: Tue, 03 May 2005 16:51

71 lines
2799 bytes

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/

Re: Delphi i problemik

#35986

Author: Stanislaw Kulczycki
Date: Tue, 03 May 2005 17:25

22 lines
1364 bytes

Raph Wrote:
(...)

Delphi juz nie pamietam... ale moze o to Ci chodzilo

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

     if decision=IDYes then
        Close();
end;



-- 
Grung[@t]kce.one.pl
GG: 1430624
http://www.freebyte.one.pl

Re: Delphi i problemik

#35987

Author: Raph
Date: Tue, 03 May 2005 20:12

14 lines
1358 bytes

on 2005-05-03 at 19:25:32 Stanislaw Kulczycki wrote:

>  Close();

Hyhy - za duzo sie rozpisales. Wystarczylo w zdarzeniu OnClick buttona
uzyc tylko tej funkcji. Najwidoczniej ta sama funkcja jest uzywana przy
OnClose formularza, wiec okienko dialogowe i tak wyskoczy. (: Tak czy
siak - dzieki za to Close(). :)

-- 
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/

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads