mistie
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TTimerThread=class(TThread)
private
F_Timer:TTimer;
public
constructor Create; reintroduce;
destructor Destroy; override;
procedure Execute; override;
end;
TForm2 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
testThread:TTimerThread;
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
{ TTimerThread }
constructor TTimerThread.Create;
begin
inherited Create(false);
F_Timer:=TTimer.Create(nil);
FreeOnTerminate:=true;
end;
destructor TTimerThread.Destroy;
begin
try
FreeAndNil(F_Timer);
inherited;
except on e:exception do
showmessage(e.message);
end;
end;
procedure TTimerThread.Execute;
begin
while not Terminated do
sleep(1);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
testThread.Terminate;
testThread:=nil;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
testThread:=TTimerThread.Create;
end;
end.
|
Всего записей: 2 | Зарегистр. 20-11-2009 | Отправлено: 09:34 01-02-2010 | Исправлено: mistie, 10:59 01-02-2010 |
|
