如何呼叫thread中的函式呢!?

發文回覆瀏覽次數：1204

推到 Plurk!

推到 Facebook!

缺席

u9412039
一般會員

發表：4
回覆：1
積分：1
註冊：2008-10-14

發送簡訊給我

#1 引用回覆回覆

發表時間：2009-08-18 13:36:11

IP:220.132.xxx.xxx 訂閱

小弟在unit2如何呼叫unit1的thread做事!?

[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyThread=class(TThread)
protected
procedure Execute; override;
public
constructor Create;
procedure TEST1;
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
{ TMyThread }
constructor TMyThread.Create;
begin
inherited Create(false);
end;
procedure TMyThread.Execute;
begin
inherited;
try
TEST1;
except
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TMyThread.Create;
end;
procedure TMyThread.TEST1;
begin
ShowMessage('YY');
end;
end.

[/code]

原來是引用的問題!
再需要呼叫的地方加上TMyThread.Create;即可!!!

附加檔案：4a8a3dcb9d117_thread_test.rar

編輯記錄

u9412039 重新編輯於 2009-08-18 13:38:20，註解無‧
u9412039 重新編輯於 2009-08-18 13:40:48，註解無‧
u9412039 重新編輯於 2009-08-18 14:56:06，註解無‧
u9412039 重新編輯於 2009-08-18 15:31:18，註解無‧
u9412039 重新編輯於 2009-08-18 16:22:56，註解無‧

u9412039
一般會員

發表：4
回覆：1
積分：1
註冊：2008-10-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2009-08-18 16:23:41

IP:220.132.xxx.xxx 訂閱

原來是引用的問題!
再需要呼叫的地方加上TMyThread.Create;即可!!!

系統時間：2024-04-30 2:58:12

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！