Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

Таймер   Найти похожие ветки 

 
trych ©   (2006-08-16 10:01) [0]

Дамы и господа, не подскажете, как мне реализовать таймер отдельным потоком?


 
alles ©   (2006-08-16 10:06) [1]

procedure TFrmConnect.BtnOkClick(Sender: TObject);
var ThreadId:Cardinal;
   ThreadHndl:Cardinal;
begin
    ThreadHndl:=CreateThread(nil,0,@InitializeTimer,nil,0,ThreadId);
    CloseHandle(ThreadHndl);
end;

function InitializeTimer(P:Pointer):LongInt;stdcall;
var TimeA:TTimer;
begin
TimeA:=TTimer.Create....
try
TimeA.Enable:=true;
finally
TimeA.Free;
end;
end;


 
Сергей М. ©   (2006-08-16 10:06) [2]

Например, вот так:

в теле TMyThread.Execute:

var
 Timer: TTimer;
 Msg: TMsg;
..

Timer:= TTimer.Create(nil);
try
 Timer.Interval := ...;
 Timer.OnTimer := DoOnTimer; //DoOnTimer - метод класса TMyThread с прототипом TNotifyEvent
 Timer.Enabled := True;
 while not Terminated and GetMessage(Msg, 0, 0, 0) do
    DispatchMessage(Msg);
finally
 Timer.Free;
end;


 
Сергей М. ©   (2006-08-16 10:08) [3]


> alles ©   (16.08.06 10:06) [1]


Мощно задвинул)


 
trych ©   (2006-08-16 10:14) [4]

Псиб, буду пробовать =)


 
rasvv ©   (2006-08-16 11:45) [5]

Объясните дураку что значит метод класса TMyThread с прототипом TNotifyEvent? Как его объявить и использовать?


 
Сергей М. ©   (2006-08-16 11:51) [6]


> rasvv ©   (16.08.06 11:45) [5]


Вот описание св-ва-события OnTimer:
property OnTimer: TNotifyEvent;

Вот соотв.объявление TNotifyEvent-типа:
type TNotifyEvent = procedure (Sender: TObject) of object;

А вот и он, тот самый метод класса
type
TMyThread = class(TThread)
..
 procedure DoOnTimer(Sender: TObject);
..
end;

Проанализируй все это и сделай соотв.умозаключения


 
rasvv ©   (2006-08-16 12:08) [7]

Спасибо, объяснил


 
Anatoly Podgoretsky ©   (2006-08-16 19:47) [8]

Зачем таймер в потоке, там есть более адекватные средства.



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

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
15-1157989615
Cyrax
2006-09-11 19:46
2006.10.01
Тонкости языка C++


3-1153948468
bumper
2006-07-27 01:14
2006.10.01
Где проблема с рус.кодировкой - в FB 1.5.3 или EhLib 3.6?


15-1157982084
Rule
2006-09-11 17:41
2006.10.01
понедельничная задачка, для поступающих в первый класс


1-1156172149
Fay
2006-08-21 18:55
2006.10.01
THintWindow.CalcHintRect


2-1157630489
Ruslan D
2006-09-07 16:01
2006.10.01
назначение события для компонент