Неуверен, что тут естъ дельфисты..:)) но всё же...
вопрос...
type TAnzeigeTread=class(TThread)
Sender: TObject;
constructor create(CreateSuspended : boolean); virtual;
protected
procedure execute; override;
procedure Doetwas;virtual; abstract;
{ Public-Deklarationen }
end;
TMyThread.class
procedure TAnzeigeThread.Execute;
begin
while(not Terminated)do
begin
// delaet vsjakuju erundu...
if a=true then
form1.tuwas(Sender); ---здесь выхожу из бесконечной <schleife> и иду делать <procedure tuwas (Sender:tObject);
end;
unit2
var
Anzeige:TAnzeigeThread
procedure tuwas (Sender:Object);
Anzeige.suspend; // --здесъ остановил поток...
делаем что-то..
цделали
а:=false;
И как теперь мне вернуться в поток TAnzeigeThread вернее его вывести из паузы???
Anzeige.Resume; подвешивает программу..
end;
если Anzeige.Resume закинуть на кнопку...то всё работает...а мне надо чтобы работала..без нажимания всяких кнопок..
Вышел из потока, остановил его..сделал..своё дело..вернулся обратно в поток..запустил его..