Hallo zusammen,
Ich möchte zur Laufzeit einen TTimer mit OnTimerEvent erstellen.
Allerdings bringt mir der Compiler folgenden Fehler:
[DCC Fehler] XDockletSrc.pas(13): E2065 Ungenügende Forward- oder External-Deklaration: 'TXDocklet.DoOnTimer'
Irgendetwas mache ich also bei der Deklaration falsch, aber ich sehe es leider nicht.
Kann mir jemand helfen? Vielen Dank!
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
| unit XDockletSrc;
interface
uses
Windows, Registry, SysUtils, Forms, Dialogs, GDIPAPI, ShellAPI,
ShlObj, Graphics, PictureConvert, ExtCtrls;
type
TXDocklet = class
private
FTimer: TTimer;
procedure DoOnTimer(Sender: TObject); // <------ Fehler
public
[...]
end;
[...]
function X_OnExec(Index: Integer): Boolean stdcall;
[...]
implementation
var
XDocklet: TXDocklet;
[...]
procedure DoOnTimer(Sender:TObject);
begin
beep;
end;
function X_OnExec(Index: Integer): Boolean;
begin
XDocklet.FTimer := TTimer.Create(NIL);
XDocklet.FTimer.Interval := 1500;
XDocklet.FTimer.OnTimer := XDocklet.DoOnTimer;
Result := True;
end; |
Dunkel
