Opravdu ukončit program?! - Builder.cz - Informacni server o programovani

Rubriky
Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Visual Basic

Opravdu ukončit program?!

21. září 1998, 00.00 | Jistě to znáte. Chcete upravit velikost okna v pravo nahoře, trochu vám ujede ruka a ukončíte běh aplikace. Situace je to nepřijemná, ale dá se ji předejít. Tip pro Delphi a C++ Buildera.

Jistě to znáte. Chcete upravit velikost okna v pravo nahoře, trochu vám ujede ruka a ukončíte běh aplikace. Situace je to nepřijemná, ale dá se ji předejít.
A to přidáním dialogového okna při dotazu na ukončení.
(Což je mimochodem vhodné místo i pro kontrolu uložení rozpracované práce ap.)


Delphi

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


C++ Builder

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

 

Tématické zařazení:

 » Rubriky  » Visual Basic  

 » Rubriky  » C/C++  

 » Rubriky  » Delphi  

 » Rubriky  » Windows  

Poslat článek Diskuse (0) Tisk Přečteno: 1809x

www.builder.cz/rubriky/visual-basic/opravdu-ukoncit-program--155581cz

 

 

 

Nejčtenější články
Nejlépe hodnocené články
Krátké zprávy

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: