show_thread.pas

来自「delphi6.0电子寻更源程序,用来计算保安有无查抄」· PAS 代码 · 共 44 行

unit show_thread;
interface
uses
 Windows,SysUtils, Classes,stdctrls,forms,Async32,comctrls,GVAS,dialogs,db;
type
  tformshow = class(TThread)
  private
   //FStbRst:TStatusBar;
    fowner:thandle;
    { Private declarations }
 protected
    procedure Execute; override;
  public
 constructor create(owner:thandle);
  end;
implementation
uses yxxx_view_pas;
 constructor tformshow.create(owner:thandle);
 begin
 fowner:=owner;
  inherited create(false);
 freeonterminate:=true;
 end;
 procedure tformshow.Execute;
begin
application.createform(tyxxx_view,yxxx_view);
end;

{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure tformshow.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ tformshow }

end.