Как правильно завершить программу?

← →
ZZS © (2004-11-14 03:43) [0]

Вот программа(в стадии разработки). после ее завершения остается кнопка на панели задач(левее часов). По ней щелкаешь и она исчезает, т.е. просто после программы остается занятая память.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, RXCtrls, Animate, GIFCtrl, ExtCtrls, RXClock;

type
TForm1 = class(TForm)
MaskEdit1: TMaskEdit;
Label1: TLabel;
RxGIFAnimator1: TRxGIFAnimator;
RxGIFAnimator2: TRxGIFAnimator;
RxGIFAnimator3: TRxGIFAnimator;
Timer1: TTimer;
RxClock1: TRxClock;
procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure screnable;
begin
SystemParametersInfo (SPI_SCREENSAVERRUNNING,1,nil,0);
ShowCursor(False);
end;

procedure finish;
begin
Application.Terminate;
end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then
begin
if MaskEdit1.Text = "1236540" then
begin
Label1.Visible:=False;
MaskEdit1.Visible:=False;
RxGIFAnimator2.Visible:=False;
RxGIFAnimator3.Visible:=True;
RxGIFAnimator3.Animate:=True;
Timer1.Enabled:=True;
end;
end;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Label1.Visible:=True;
MaskEdit1.Visible:=True;
MaskEdit1.SetFocus;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SystemparametersInfo (SPI_ScreenSaverrunning,0,nil,0);
ShowCursor(True);
finish;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MaskEdit1.Text = "1236540" then CanClose:=True
else CanClose:=False;
end;

begin
screnable;

end.

← →
Германн © (2004-11-14 03:47) [1]

Плюнь и забудь.
Но привыкни к тому, что в W9x у тебя очень часто будут "оставаться пустые кнопки на панели задач". Просто щелкни по ним и они исчезнут.

← →
Кто---то © (2004-11-14 06:06) [2]

> procedure finish;
> begin
> Application.Terminate;
> end;

А если close ?

А если close ?

procedure TCustomForm.Close;
var
CloseAction: TCloseAction;
begin
if fsModal in FFormState then
ModalResult := mrCancel
else
if CloseQuery then
begin
if FormStyle = fsMDIChild then
if biMinimize in BorderIcons then
CloseAction := caMinimize else
CloseAction := caNone
else
CloseAction := caHide;
DoClose(CloseAction);
if CloseAction <> caNone then
if Application.MainForm = Self then Application.Terminate
else if CloseAction = caHide then Hide
else if CloseAction = caMinimize then WindowState := wsMinimized
else Release;
end;
end;

Как правильно завершить программу? Найти похожие ветки