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

Question

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

Answer 1

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

Answer 2

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;