Prog:: Win32
Exit?!
Titulni strana

Forum
Builder (10)
Problemy a algoritmy (250)
Java (61)
Web (123)
Win32 (74)
PowerBuilder

Archiv
Obecne
Nastroje
Win32
Java
Web

Internet
Megaprint
Technet
Namodro
Lupa
 
Reklama

Opravdu ukoncit program?!

Jiste to znate. Chcete upravit velikost okna v pravo nahore, trochu vam ujede ruka a ukoncite beh aplikace. Situace je to neprijemna, ale da se ji predejit.
A to pridanim dialogoveho okna pri dotazu na ukonceni.
(Coz je mimochodem vhodne misto i pro kontrolu ulozeni rozpracovane prace ap.)


Delphi

procedure TForm1.FormCloseQuery(
  Sender: TObject;
  var CanClose: Boolean);
begin
  if(mrNo = MessageDlg(
       'Opravdu ukoncit program?', mtInformation,
       [mbYes, mbNo],0)) then
  begin
    CanClose := False;
  end;
end;

C++ Builder

void  TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (MessageDlg("Opravdu ukoncit program?", mtConfirmation,
    TMsgDlgButtons() << mbYes << mbNo, 0) == mrNo)
CanClose = False;
}



Reklama

 
 

cbob@builder.cz