Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
-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]

....

---

← →
gek   (2002-10-07 09:38) [6]

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

---

← →
VID   (2002-10-07 09:40) [7]

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

---

← →
-Drive   (2002-10-07 11:01) [8]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c