怎样在StatusBarDrawPanel（）事件中控制一个panel？

[netsong]

例如，我的statusbar分成两个panel，分别加载两个不同的图标。我怎么区分这两个panel？

[kuangning]

statusbar.panels[0]
statusbar.panels[1]

[netsong]

知道了，该事件的参数panel.index属性可以区分。

我怎样动态重画状态条的panel？

[netsong]

没人知道？

[ch81]

属性设置：StatusBar.Panel[0].Text='1' Style=psOwnerDraw
StatusBar.Panel[1].Text='2' Style=psOwnerDraw
代码：我只是写字，你可改一下
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel.Text='1' then
begin
StatusBar.Canvas.TextOut(3,4,'Panel1');
end
else
begin
StatusBar.Canvas.TextOut(Panel.Width+3,3,'Panel2');
end;
end;
----------
给20分！！

[OysterLQD]

procedure TForm1.sbDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
statusbar.Canvas.TextOut(rect.Left,rect.Top,inttostr(panel.Index ));
end;
procedure tform1.mydrawpanel(statusbar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
statusbar.Canvas.Draw(rect.Left,rect.Top,application.Icon);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sb.OnDrawPanel:=mydrawpanel;
sb.repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
sb.OnDrawPanel:=sbdrawpanel;
sb.Repaint;
end;

[netsong]

那岂不是每改变一次statusbar，就需要写一个函数？
有没有简便的方法？

[ch81]

那岂不是每改变一次statusbar，就需要写一个函数？
有没有简便的方法？
---------------------------------------------
怎么用呢？？？上面我的方法不就只有一个函数吗？

[netsong]

sbDrawPanel, mydrawpanel不是两个吗？这才两个状态。
如果我有10个8个状态那岂不是要写1DrawPanel......10Drawpanel???

[ch81]

：　netsong():那肯定拉，除非你的OwnerDraw有规律，比如说，你在每个panel上的开头地方画图，就可以只用一段代码，你用一个图像数组，然后你只要获得panel的序列号，然后即可以了！！

[ch81]

但是如果你要画无规则的，那就一个个写吧！