Frodo_Torbins
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: constructor TMyThread.Create;
begin
inherited Create(False);
q:= 1;
FrmClr:= Form1.Color;
//меняем цвет, чтоб подлежащая форма отличалась от wait-формы
Form1.Color:= clMoneyGreen;
TimeCounter:= 0;
ListDisabled:= DisableTaskWindows(Form2.Handle);
Form2.Show;//покажем wait-форму
end;
destructor TMyThread.Destroy;
begin
EnableTaskWindows(ListDisabled);
ListDisabled:= nil;
Form2.Hide;
Form1.Color:= FrmClr;
inherited;
end;
procedure TMyThread.StopClick;
begin
Form1.BtnStopClick(Self);
end; |
|
