Delphi 关于子线程控制界面控件时，画面抖动的问题

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/arthurde/article/details/69941891

比如子线程刷新Memo中的内容时，Memo框画面会发生抖动。

照理说，又不是主线程，不应该出现这样的情况，

反正不管怎么，用消息的方式传递给界面主线程就好了。

procedure print2Console(var msg: TMessage);message WM_PUSHDATA;


{-------------------------------------------------------------------------------
 Description: 向控制台中打印新消息
-------------------------------------------------------------------------------}
procedure TConsoleFrame.print2Console(var msg: TMessage);
var
  tempStr : string;
  present: tdatetime;
  var sTime: string;
begin
  tempStr := ？？？？？？？？？？？？？;

  consoleText.Insert(0,tempStr);
  ConsoleMemo.Lines := consoleText;
end;