콤포넌트를 하나 만들고 있는데요 ... 고수님들 보기엔 넘 쉬운 질문일수도 있는데...

콤포넌트의 내부 동작중에 Timer기능이 필요해서 콤포넌트에 첨가를 할려구....

Uses 에 ExtCtrls 를 첨가하고.

uses

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

CPort, ExtCtrls;



type

TRobot = class(TCustomComPort)

Timer1 : TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

.

.

.

constructor TRobot.Create(AOwner : Tcomponent);



begin

inherited Create(AOwner);

Timer1 := TTimer.Create(Self); ==> 요부분도 맞는지 정확히는 모르겠어요

Timer1.Interval := 200;

Timer1.Enabled := True;

end;

.

.

.

procedure TRobot.Timer1Timer(Sender: TObject);

begin

Moving_Over_Time := Moving_Over_Time + 1;

end;





요런식으로 하고 실행을 시켰더니.... Timer가 아무런 동작을 하지 않네요..(컴파일은 되는데).. 쩝... 무엇이 어떻게 잘못된건지 알려주시면 정말 감사하겠습니다.