5,388
社区成员
发帖
与我相关
我的任务
分享
THintMsg = class( TObject )
private
FOwner : TObject;
FHintForm : TForm;
CloseImage :TImage ;
tmrGradient : TTimer;
tmrGrowth : TTimer;
procedure tmrGradientTimer( Sender: TObject );
procedure tmrGrowthTimer( Sender: TObject );
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
public
FormClick : TFormClick;
constructor Create( AOwner : TObject );
destructor Destroy; override;
end;
implementation
constructor THintMsg.Create( AOwner : TObject );
begin
FHintForm := TForm.Create( application );
tmrGradient := TTimer.Create( FHintForm );
tmrGrowth := TTimer.Create( nil ); // 问题出在这里,先前我是tmrGradient :=
// Timer.Create( FHintForm ); 这样创建的,改成
// nil 就没问题了, 虽然问题解决的,但是我不知道为什
// 么,如果有人知道为什么来说一下,同样给分
end;