【结帖】[问题]线程问题!**

rzport_jqf

代码如下:

unit MainForm;

interface

uses
  Business.System, Business.Forms;

type
  TMyThread = class(TThread)
  private
    FForm: TMainForm;
  public
    procedure Execute; override;
    property Form: TMainForm read FForm write FForm;
  end;

type
  TMainForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
    procedure MyMessage();
  end;

implementation

procedure TMyThread.Execute;

begin
  while ( true ) do
  begin
         Business.System.SysUtils.Sleep(1000);
         FForm.MyMessage();
  end;

end;

procedure TMainForm.MyMessage();
begin
   Dialogs.ShowMessage('thread');
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
  t: TMyThread;
begin
  t := TMyThread.Create(True);
  t.FForm := Self;
  t.Resume;

end;

end.

rzport_jqf

出错图:

rzport_jqf

出错后定位图:

rzport_jqf

补充说明: 测试的时候, 有时候正常, 有时候报错! 不知何原因?

alang

楼主用Delphi做过线程吗？
平台上的线程就是用的Delphi的线程

rzport_jqf

我没用过delphi.  我是在论坛上搜的资料. 问题出在哪儿?

gaihl

楼主原始需求是什么？

rzport_jqf

现在没问题了. 结吧.