Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Потоки !!! Мастера помогите !!! [D6, Win2k]

-Drive © (2002-10-06 17:39:00)
Вот код !!! Покажывает текушие дату и время!!!
....
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-07 11:01:00) [1]
СПАСИБО !!!! ВОПРОС СНЯТ!!!

VID (2002-10-07 09:40:00) [2]
procedure time.execute;
begin
Sleep(1000);//что бы не зависало
while form1.Visible do
synchronize(time);
end

gek (2002-10-07 09:38:00) [3]
А почему time.Create(false); ,а не tim:=time.Create(false);

-Drive (2002-10-07 09:32:00) [4]
....

-Drive (2002-10-06 19:55:00) [5]
>Boger
То есть ? Зачем?

Boger (2002-10-06 19:37:00) [6]
а где у тебя?
sleep(1000);

aus (2002-10-06 18:48:00) [7]
Ты прежде всего с Таймами разберись, неужели названий других для процедур и переменных нет...

-Drive (2002-10-06 18:37:00) [8]
Ну ктото же знает !!!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »