ب- تات
شنبه 10 شهریور 1386, 10:54 صبح
type
TMainFc = class
private
public
procedure StatuText(Sender :TObject);
procedure MakeStatusPanels();
//
end;
implementation
procedure TMainFc.MakeStatuspanels();
var insTimer : TThreadTimer;
begin
with insTimer.Create(Application) do begin
Intervals := 100;
OnExecute:= TMainFc.StatuText(self);
end;
end;
procedure TMainFc.StatuText(Sender :TObject);
var s1:string;
begin
s1:= FormatDateTime('hh:mm:ss',time);
Main_F.sStatusBar1.Panels[1].Text := s1;
end;
در خط
OnExecute:= TMainFc.StatuText(self);
پیام خطای:
This form of method call only allowed for class methods
میده . میشه راهنمایی کنید مشکل من کجاست؟
TMainFc = class
private
public
procedure StatuText(Sender :TObject);
procedure MakeStatusPanels();
//
end;
implementation
procedure TMainFc.MakeStatuspanels();
var insTimer : TThreadTimer;
begin
with insTimer.Create(Application) do begin
Intervals := 100;
OnExecute:= TMainFc.StatuText(self);
end;
end;
procedure TMainFc.StatuText(Sender :TObject);
var s1:string;
begin
s1:= FormatDateTime('hh:mm:ss',time);
Main_F.sStatusBar1.Panels[1].Text := s1;
end;
در خط
OnExecute:= TMainFc.StatuText(self);
پیام خطای:
This form of method call only allowed for class methods
میده . میشه راهنمایی کنید مشکل من کجاست؟