- This topic has 1 reply, 2 voices, and was last updated 13 years ago by
.
Viewing 1 post (of 1 total)
-
Posts
-
Hello! You should use synchronization :
Code:typeTUpdate = class(TThread)
protected
procedure Execute; override;
procedure ShowDlg;
end;procedure TUpdate.Execute;
begin
FreeOnTerminate := True;
Synchronize(ShowDlg);
end;procedure TForm1.sButton1Click(Sender: TObject);
var
Test : TUpdate;
begin
Test := TUpdate.Create(True);
Test.Resume;
end;procedure TUpdate.ShowDlg;
begin
sMessageDlg('Test','Test', mtInformation, [mbOk], 1);
end;
Viewing 1 post (of 1 total)
- You must be logged in to reply to this topic.