Skip to content

Instantly share code, notes, and snippets.

@linglung

linglung/gist:41ee229d93db12ef301cac4337dc69d7

Created November 29, 2016 06:23
Show Gist options
  • Save linglung/41ee229d93db12ef301cac4337dc69d7 to your computer and use it in GitHub Desktop.
Save linglung/41ee229d93db12ef301cac4337dc69d7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
const MSG_WORKER_RESULT = WM_USER;
procedure WorkerResult(var msg: TMessage); message MSG_WORKER_RESULT;
procedure TfrmTThreadComm.WorkerResult(var msg: TMessage);
begin
ProcessResults;
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment