Потоки !!! Мастера помогите !!!

← →
-Drive © (2002-10-06 17:39) [0]

Вот код !!! Покажывает текушие дату и время!!!
....
type
time=class(tthread)
protected
procedure time;
procedure execute; override;
end;
var
Form1: TForm1;
tim:time;

implementation

{$R *.dfm}
procedure time.time;
var
dt:tdatetime;
begin
form1.sb.Panels[0].Text:=FormatDateTime("dd.mm.yyyy hh.nn.ss",now);
end;
procedure time.execute;
begin
while form1.Visible do
synchronize(time);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
time.Create(false);
end;
....

Всё работает, но после того как я перемещаю форму то всё виснет!!!
В чем проблема,,,???

← →
-Drive © (2002-10-06 18:37) [1]

Ну ктото же знает !!!

← →
aus © (2002-10-06 18:48) [2]

Ты прежде всего с Таймами разберись, неужели названий других для процедур и переменных нет...

← →
Boger (2002-10-06 19:37) [3]

а где у тебя?
sleep(1000);

← →
-Drive © (2002-10-06 19:55) [4]

>Boger
То есть ? Зачем?

← →
-Drive © (2002-10-07 09:32) [5]

....

А почему time.Create(false); ,а не tim:=time.Create(false);

procedure time.execute;
begin
Sleep(1000);//что бы не зависало
while form1.Visible do
synchronize(time);
end

СПАСИБО !!!! ВОПРОС СНЯТ!!!

Потоки !!! Мастера помогите !!! Найти похожие ветки