Как вывести сообщение в потоке?

@MyLogin · Регистрация: 24.03.2013

Author24 — интернет-сервис помощи студентам

Ребята, как вывести сообщение в потоке?

нужно вывести

Delphi

1	ShowMessage('Скачание успешно завершенно');

вод код:

Delphi

{ ThreadHTTP }
 
procedure ThreadHTTP.Execute;
var j:integer;
begin
  inherited;
   i:=0;
   j:=0;
   Stream:=TMemoryStream.Create;
   Form3.IdHTTP1.Get('http://sitee.ru//Desktop.rar',Stream);
   Form3.sprgrsbr1.Max:=Stream.Size;
   while j<=Stream.Size do
    begin
     inc(i);
     Synchronize(ShowResult);
     inc(j);
     Form3.sprgrsbr1.Position:=Form3.sprgrsbr1.Position+1;
    end;
   Stream.SaveToFile('C:\UGPtemp\Desktop.rar');
   Stream.Free;
 
   
 
   end;

@mss · 08.04.2013, 22:14

Сообщение от MyLogin

как вывести сообщение в потоке?

Любой подходящей WinAPI-функцией, например, MessageBox, но ни в коем случае не VCL-процедурой ShowMessage

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	08.04.2013, 22:14	2
	Сообщение от MyLogin как вывести сообщение в потоке? Любой подходящей WinAPI-функцией, например, MessageBox, но ни в коем случае не VCL-процедурой ShowMessage 0