[DELPHI]

[Verwijderd]

Ik ben nu bezig dat als je op het het kruisje duwt bij delphi dat die dan de vraag stelt of die moet afsluiten ja of nee dit werkt wel als je Exit kiest bij het File --> Exit maar bij het kruisje in de hoek gaat die er meteen uit. Hoe los ik dit probleem op. Het zit namelijk standaard in delphi dat die er dan uit gaat hij hoeft dus alleen maar als je op Nee duwt door te gaan met het programma Hier onder het stukje source:

unit Uren1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, Menus, mtBase;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
ApplicationEvents1: TApplicationEvents;
File1: TMenuItem;
Exit1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure AppClose(Sender: TObject; var Action: TCloseAction);
procedure AppExit;
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
_b:mtBaseClass;
end;

var
Form1: TForm1;
AppAlpha: longint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
_b:=mtBaseClass.Create;
end;

procedure TForm1.AppClose(Sender: TObject; var Action: TCloseAction);
begin
AppExit;
_b.free;
end;

procedure TForm1.AppExit;
begin
if MessageDlg('Do you want to quit ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
AppAlpha:= 255;
while (AppAlpha > 1) do
begin
AppAlpha:= AppAlpha - 10;
if appAlpha>255 then AppAlpha:=255;
AlphaBlendValue:= AppAlpha;
end;
Application.Terminate;
end
else
begin
Exit;
end;
end;


procedure TForm1.Exit1Click(Sender: TObject);
begin
AppExit;
end;

end.

[Creepy]

Tip : Tform1.onclose!

[Verwijderd]

én de helpfile.

[Verwijderd]

Hoe bedoel je TForm.Onclose bedoel je dat met event Kan je nog een tipje van de sluier oplichten

[stekkel]

in de event onclose een dialog opnemen met ja of nee
if ja close if nee do nothing

[teig_r]

Op woensdag 03 oktober 2001 11:41 schreef stekkel het volgende:
in de event onclose een dialog opnemen met ja of nee
if ja close if nee do nothing

nope, probeer t OnCloseQuery event.. daar zet je t dialoog in, als er OK wordt geklikt zet je CanClose := True anders CanClose := False;

/edit
OnCloseQuery treedt eerst op, OnClose treedt op als het form eigenlijk al gesloten is...
/edit

[Verwijderd]

Dankje wel mensen ik heb hem ;-)

[Creepy]

OnCloseQuery treedt op voor de OnCLose.
Maar OnCLose treedt op voordat de form echt gesloten is
zet dit maar neer in je onclose event

code:

action:=caNone;

Wedden dat je je form nooit meer kan sluiten?