Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.008 c
14-56281
RomychK
2002-09-18 15:07
2002.10.17
Фаерволы и @Guard,....


3-55938
Шурик Ш
2002-09-23 17:53
2002.10.17
Текущая строка DBGrid


7-56365
DenKop
2002-07-15 17:19
2002.10.17
COM port


1-56148
-Drive
2002-10-06 17:39
2002.10.17
Потоки !!! Мастера помогите !!!


3-55920
Termex
2002-09-27 10:20
2002.10.17
MS SQL и его uniqueidentifier





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский