Timer ohne Form

[Jan]

Vielleicht mach ich ja wirklich was falsch, hier der code der unit:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi, extctrls;

 var
  MyTimer: TTimer;
implementation

{$R *.DFM}

uses STNDGenPlug;

procedure timerevent(sender:tobject);

var
handle:hdc;
title:string;
begin
handle:=getdc(0);
settextcolor(handle, clyellow);
SetBkmode(handle, TRANSPARENT);
title := strpas(Pointer(sendmessage(Plugin.HWNDparent, wm_user,
                             SendMessage(Plugin.HWNDParent, wm_user, 0, 125),212)));
textout(handle,100,100,pchar(title),length(title));
releasedc(0, handle);
end;

begin


  MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 500;
  @MyTimer.OnTimer := @timerevent;



end.

Gruß
Jan

[Daniel B]

Und wo ist die Nachrichtenschleife die Luckie vorhin schon angesprochen hat?

[Jan]

Zitat:

Wenn du SetTimer nutzt, dann brauchst du nämlich wieder eien MessageLoop oder wie willst du sonst an die WM_TIMER nachrichten dran kommen?

Wenn ich Settimer benutze, aber das tu ich ja nicht.
Gruß
Jan

[SirThornberry]

Die Nachrichtenschleife bezieht sich ja nicht auf TTimer!! Bleibt wohl bezüglich TTimer nur noch ne Hilfsklasse um das hinzubekommen.

[Luckie]

Verdammt, wir hatten das doch schon mal. Und ich meine, da hätten wir es so gelöst.