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

Вниз

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

 
nucl ©   (2004-01-17 14:31) [0]

Как правильно реализовать таймер внутри DLL для использования его внутри самой DLL ?


 
Nucl ©   (2004-01-17 14:57) [1]

никто ничего ?


 
Nucl ©   (2004-01-17 17:04) [2]

ну же ... ?


 
Бином Ньютоныч   (2004-01-17 20:55) [3]

function ShowDelayedMsg(Timeout: Cardinal): bool; stdcall;

implementation

type
TTimerEventCls = class
class procedure TimerEvent(Sender: Tobject);
end;

var
Timer: TTimer = nil;

function ShowDelayedMsg(Timeout: Cardinal): bool;
begin
Result:=false;
if Timer = nil then Timer:=TTimer.Create(nil)
else if Timer.Enabled then Exit;
Timer.OnTimer:=TTimerEventCls.TimerEvent;
Timer.Interval:=Timeout;
Timer.Enabled:=true;
Result:=true;
end;

{ TTimerEventCls }

class procedure TTimerEventCls.TimerEvent(Sender: Tobject);
begin
Timer.Enabled:=false;
MessageBox(0, "DLL message", "DLL", 0);
end;


 
Eagle Owl ©   (2004-01-17 23:02) [4]

А можно добавить DataModul и в него поместить таймер...



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-93480
maxXP
2004-01-15 17:46
2004.01.29
Как в listbox определить количество существующих элементов?


6-93602
Sanya-spb
2003-11-24 16:20
2004.01.29
IdTCPServer vs IdTCPClient висят??


1-93543
Mishenka
2004-01-17 02:39
2004.01.29
Как убрать с экрана панель задач?


1-93538
Godness
2004-01-15 20:38
2004.01.29
ХР стиль


1-93566
snake1977
2004-01-15 17:16
2004.01.29
MDI + DLL