如何让StatusBar的一个Panel里的文字在接到Socket的一个通知后变成红色或是闪烁？

[Jinglihui]

如何让StatusBar的一个Panel里的文字在接到Socket的一个通知后变成红色或是闪烁？

[daniel007]

推荐使用1Class3000的fcStatucBar

[Jinglihui]

fcStatusBar要不要钱啊？哪儿可以下载呢？

[Jinglihui]

怎么没有人回答我的问题啊？

[qiujsh]

type
TMStatusBar=Class(TStatusBar)
private
protected
public
constructor Create(AOwner: TComponent); override;
published
end;


private
Mstatusbar1:TMStatusBar;


constructor TMStatusBar.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle:= ControlStyle + [csAcceptsControls];
end;


procedure TFm_Main.FormCreate(Sender: TObject);
var
i:integer;
begin
Mstatusbar1:=TMStatusBar.Create(self);
Mstatusbar1.Parent:=Fm_Main;
Mstatusbar1.OnDblClick := StatusBar1DblClick;
for i:=0 to 3 do
begin
Mstatusbar1.Panels.Add;
Mstatusbar1.Panels.Items[0].Width :=120;
end;
image1.Parent:=Mstatusbar1;
image1.visible:=true;
image1.Left :=0;
image1.top :=0;
image1.Width :=Mstatusbar1.Height ;
image1.height :=Mstatusbar1.Height ;
end;