Не мог разобраться с реализацией таймера плагине соорудил следующую конструкцию, вроде работает, но правильно ли? не будет затупов при долгой работе?
также прописываются и другие события)
delphi Код:
......
type
aaa = class(TObject)
public
procedure CheckTime(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
var
FormMain : TForm;
CheckTimer: TTimer;
Msg : TMemo;
...........
.............
function Create_FormMain : TForm;
...........
.......
Result := TForm.Create(nil);
TRY
.......
Result.OnClose := aaa.Create.FormClose;
........
end;
...........
............
//чтобы форма не закрывалась
procedure aaa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;
//событие таймера
procedure aaa.CheckTime(Sender: TObject);
begin
msg.Lines.Add('test');
end;
procedure OnLoad; stdcall;
begin
FormMain:=Create_FormMain;
CheckTimer:=TTimer.Create(Application);
CheckTimer.OnTimer:=aaa.Create.CheckTime;
CheckTimer.interval:=2000; //время задержки
CheckTimer.enabled:=false;
end;
.........
а для чего в проекте используется FastMM4?