setTimer ausgelagert benutzen...

[Kryoko]

Hi !

Um einen Timer in der API zu setzen benutzt man im allgemeinen ja folgenden Befehl:

Delphi-Quellcode:

  SetTimer(hWnd: HWND; nIDEvent: Cardinal; uElapse: Cardinal; lpTimerFunc: Pointer);

Kann ich, wenn ich z.B. eine Procedure in einer ausgelagerten Unit habe :

Delphi-Quellcode:

procedure setTimers;
begin
  setTimer(hwnd, nidevent, uelapse, nil);
end;

auf die in meiner *.dpr deklarierten Variable h_wnd zugreifen ?
Und wenn ja, wie ?

Also:

Delphi-Quellcode:

"Project.dpr"
var
  h_wnd: HWND;  <------------|
                             |
"timer.pas"                  |
procedure setTimers          |
  begin                      |
    setTimer(h_wnd,...) -----|
  end;

greetings, Kryoko

[sniper_w]

Viel komfortabler wäre es wenn du es so machen würdest...

Delphi-Quellcode:

procedure setTimers(const MyHwnd : HWND);
begin
  setTimer( MyHwnd, nidevent, uelapse, nil);
end;

und ich würde keine globale Variabeln in *.dpr speichern , sondern nur im *.pas. So sind sie überall erreichbar, mann muss nur richtige "uses" Befehle eintippen.

[Kryoko]

Omg stimmt ja...ich hatte echt ein Brett vorm Kopf...sorry ^^
Thx ^^