DelphiX Timer

[Gandalfus]

Zitat von Mitternachtsfalke:

Hi
Ist es normal dass man nur einen DelphiX Timer benutzen kann?
Denn sobald ich einen zweiten nehme, bleibt die DXDraw schwarz.

'FALKE

Allerding der DelphiX Timer basiert auf dem onidle Ereignis und das giebt es nur einmal. Das onidel kann man auch direkt nutzen z.B.: mit der Komponente ApplicationEvents.

Wenn man 2 Timer will bietet es sich an Threads zu nehmen:
z.B.:

Delphi-Quellcode:

type

  TGandalfusTimer = class(TThread)
  private
    FCount: word; 
  public
    constructor create;
    destructor destroy; override;     
    procedure Execute; override;
    procedure start;
    procedure stop;    
  end;

implementation

procedure TGandalfusTimer.Execute;
begin
  while not Terminated do
  begin
    Sleep(Fcount);
     //mache was........
  end;
end;

constructor TGandalfusTimer.create;
begin
  inherited create(true);
end;

destructor TGandalfusTimer.destroy;
begin
  terminate;
  Fcount  := 50; //----Intervall
  inherited destroy;
end;

procedure TGandalfusTimer.start;
begin
  resume;
end;

procedure TGandalfusTimer.stop;
begin
  Suspend;
end;