안녕하세요?

고드름 김정입니다.



델파이에는 TTimer 라는 객체가 있습니다.

TTimer의 인스턴스에 Interval 마다 OnTimer 이벤트가 발생합니다.

그 헨들러 내부에서 어떤처리(?)를 하시면 됩니다.



만약 말씀하신 API 로 구현하실려면,

TTimer를 만드는 부분에서 SetTimer를 부르시고,

WndProc을 override 해서 WM_TIMER 메시지를 후킹하시던가,

WM_TIMER 이벤트 핸들러를 작성해서 이벤트를 처리하시면 됩니다.



어차피 델파이로 하시는 거라면 위의 TTimer를 추천합니다.

그럼.



한승구 wrote:

> 하다가 잘 안돼서 고수님께 도움을 요청합니다.

>

> WM_TIMER 메세지를 이용해서 3초후에 어떤처리를

> 하려고 합니다.

> SETTIMER 와 KILLTIMER 와 TIMERPROCE 함수를

> 어떻게 사용하는지..

>

> 쌀쌀해진 날씨에 건강 조심하세요.

김정 wrote:

> 안녕하세요?

> 고드름 김정입니다.

>

> 델파이에는 TTimer 라는 객체가 있습니다.

> TTimer의 인스턴스에 Interval 마다 OnTimer 이벤트가 발생합니다.

> 그 헨들러 내부에서 어떤처리(?)를 하시면 됩니다.

>

> 만약 말씀하신 API 로 구현하실려면,

> TTimer를 만드는 부분에서 SetTimer를 부르시고,

> WndProc을 override 해서 WM_TIMER 메시지를 후킹하시던가,

> WM_TIMER 이벤트 핸들러를 작성해서 이벤트를 처리하시면 됩니다.

>

> 어차피 델파이로 하시는 거라면 위의 TTimer를 추천합니다.

> 그럼.



>

> 한승구 wrote:

> > 하다가 잘 안돼서 고수님께 도움을 요청합니다.

> >

> > WM_TIMER 메세지를 이용해서 3초후에 어떤처리를

> > 하려고 합니다.

> > SETTIMER 와 KILLTIMER 와 TIMERPROCE 함수를

> > 어떻게 사용하는지..

> >

> > 쌀쌀해진 날씨에 건강 조심하세요.

김정님.

답변감사합니다.

근데 방법은 아는데 실제로 구현이 잘안돼네요.

Example 를 좀 부탁드려요.. ^^

안녕하세요?

고드름 김정입니다.



질문하신 TTimer 예제입니다.

Inspecter에서 Timer1의 Enabled은 False로 해둡니다. ^^;



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Timer1: TTimer;

Button1: TButton;

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

nTick : integer;

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Form1.Caption := IntToStr(nTick)+'초';

Inc(nTick);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled := not Timer1.Enabled;

if (Timer1.Enabled) then

Button1.Caption := 'Stop.'

else

Button1.Caption := 'Start.';

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

nTick := 0;

Button1.Caption := 'Start.';

end;



end.

김정 wrote:

> 안녕하세요?

> 고드름 김정입니다.

>

> 질문하신 TTimer 예제입니다.

> Inspecter에서 Timer1의 Enabled은 False로 해둡니다. ^^;

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls, ExtCtrls;

>

> type

> TForm1 = class(TForm)

> Timer1: TTimer;

> Button1: TButton;

> procedure Timer1Timer(Sender: TObject);

> procedure Button1Click(Sender: TObject);

> procedure FormCreate(Sender: TObject);

> private

> { Private declarations }

> nTick : integer;

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.Timer1Timer(Sender: TObject);

> begin

> Form1.Caption := IntToStr(nTick)+'초';

> Inc(nTick);

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> Timer1.Enabled := not Timer1.Enabled;

> if (Timer1.Enabled) then

> Button1.Caption := 'Stop.'

> else

> Button1.Caption := 'Start.';

> end;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> nTick := 0;

> Button1.Caption := 'Start.';

> end;

>

> end.

>