Unit2.pas
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:1k
- unit Unit2;
- interface
- uses
- Classes;
- type
- kjh = class(TThread)
- private
- { Private declarations }
- protected
- procedure Execute; override;
- end;
- implementation
- { Important: Methods and properties of objects in VCL or CLX can only be used
- in a method called using Synchronize, for example,
- Synchronize(UpdateCaption);
- and UpdateCaption could look like,
- procedure kjh.UpdateCaption;
- begin
- Form1.Caption := 'Updated in a thread';
- end; }
- { kjh }
- procedure kjh.Execute;
- begin
- { Place thread code here }
- end;
- end.
-