[Rafał Drzewiecki]

type

TForm1 = class(TForm)

sSkinManager: TsSkinManager;

sSkinProvider: TsSkinProvider;

private

public

end;

type TUpdate = class(TThread)

protected

procedure Execute; override;

end;

procedure TUpdate.Execute;

begin

FreeOnTerminate := True;

sMessageDlg('Test','Test', mtInformation, [mbOk], 1);

end;

procedure TForm1.Button;

var

Test : TUpdate;

begin

Test := TUpdate.Create;

Test.Resume;

end;

Why have not skin in the thread?

[Support]

Hello! You should use synchronization :

Code:

type

TUpdate = 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;

[Author]

Posts