asked on

Access a Timer that is declared in a component

Dear Experts,

I have made a TCustomPanel-component and in that component i have declared Timer component
When I put my component on a form how can I put the Timer to True with a MainMenu-item?

constructor TMyDrawingPanel.Create(AOwner: TComponent);
begin
inherited Create (AOwner);
CursorFlashTimer := TTimer.Create(self); <----------------------------
with CursorFlashTimer do
begin
Enabled := False;
Interval := 200;
OnTimer := CursorFlashTimer_OnTImer;
end;
SCRCOLS := 80;
SCRROWS := 24;
SocOpen := False;
ColorRed := clRed;

I have this, but this is not working:

procedure TConnectHost.miFlashCursorClick(Sender: TObject);
begin
miFlashCursor.Checked := not miFlashCursor.Checked;
CursorFlashTimer.Enabled := True;
end;

How can i put the Timer to True?

Peter

ASKER CERTIFIED SOLUTION

Eddie Shipman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Peter Kiers

ASKER

I have put it in the Private part:

type
TMyDrawingPanel = class(TCustomPanel)
private
{ Private declarations }
CursorFlashTimer: TTImer; <----------------------
Bounding: Boolean;
fcursorVisible: boolean;
AnchorX, AnchorY,
CurX, CurY: Integer;
SCRROWS: integer;
SCRCOLS: integer;
FontWidthPix: integer;

Peter

Peter Kiers

ASKER

how and where do i have to declare it, to access it.

P.

Eddie Shipman

move it to the public section to be able to access it like I stated.

Peter Kiers

ASKER

Oke

Peter