标签:begin end 解决方案 TForm1 匿名 lazarus Form1 TThread procedure
lazarus目前不支持匿名方法,在不继承线程的情况下,使用匿名线程或TThread.ExecuteInThread时,需要单独写两个方法:一个给TThread.ExecuteInThread用,另一个给同步用。感觉比较麻烦,并且可读性略差。
经过测试,下面代码的解决方案感觉好一些。
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) CheckBox1: TCheckBox; Label1: TLabel; procedure FormCreate(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} function MakeProc(ProcPtr: Pointer): TThreadMethod; begin Result := TThreadMethod((@ProcPtr)^); end; { TForm1 } procedure TForm1.FormCreate(Sender: TObject); procedure SyncProc; begin //Form1是必须的 Form1.Label1.Caption := DateTimeToStr(Now); end; procedure NestedProc; begin //Form1是必须的 while not Form1.CheckBox1.Checked do begin TThread.Synchronize(nil, MakeProc(@SyncProc)); TThread.Sleep(500); end; end; begin TThread.ExecuteInThread(MakeProc(@NestedProc)); end; end.
标签:begin,end,解决方案,TForm1,匿名,lazarus,Form1,TThread,procedure 来源: https://www.cnblogs.com/qiufeng2014/p/16579802.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。