Помогите новичку вызвать поток.

← →
balykovdron © (2003-04-12 12:15) [0]

Что я делаю не так? При заходе в конструктор потока
сообщение выскакивает, но следующая команда приводит к
"Access violation..."

Подробности вот:
1. File\New\Application
2. Кинул кнопку на форму
3. код формы
------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
var
Form1: TForm1;
CopyThread: TCopyThread;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyThread.Create(False);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not (CopyThread = nil) then begin
CopyThread.Terminate;
end;
end;
end.
------------------------------
4. Добавил еще один модуль (Unit2)
вот код модуля
------------------------------
unit Unit2;
interface
uses
Classes, Dialogs, Windows;
type
TCopyThread = class(TThread)
protected
procedure Execute; override;
public
constructor Create(S: String);
destructor Destroy; override;
end;
implementation
constructor TCopyThread.Create(S: String);
begin
showmessage(S);
inherited Create(False);
end;
destructor TCopyThread.Destroy;
begin
inherited Destroy;
end;
procedure TCopyThread.Execute;
begin
sleep(1000);
end;
end.
------------------------------

← →
anbezr (2003-04-12 12:19) [1]

попробуй заменить ShowMessage на MessageBox(0...

← →
Polevi © (2003-04-12 13:01) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyThread:=TCopyThread.Create(False);
end

← →
Skier © (2003-04-12 13:23) [3]

http://www.delphimaster.ru/articles/thread/index.html

← →
anbezr (2003-04-12 13:27) [4]

>balykovdron
С учётом поправки Polevi загляни ещё и сюда :
http://www.delphimaster.ru/articles/components-rt.html

Помогите новичку вызвать поток. Найти похожие ветки