++++++++如何判断当前鼠标按下的是staturebar.panels[0]?

[1999]

staturebar一共有3个panels.

[zds0707]

在staturebar的单击事件中,
取出鼠标的位置就可以判断了：

var
myMouse : TMouse ;
Pt : TPoint ;
begin
pt := MyMouse.CursorPos ;
if Pt.x> .. and pt.y... then

end ;

[1999]

O,谢谢zds0707(周)　,我也是用这个方法解决的.有没有其他方法那?
还有,就是如何改变panels的字体颜色?

[zds0707]

正在查找中》。。。

[zds0707]

下面一段代码，试一下：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusBar.Canvas.Brush.Color:=$00CA8895;
StatusBar.Canvas.Font.Color:=clGreen;
StatusBar.Canvas.FillRect(Rect);

StatusBar.Canvas.TextRect(Rect,Rect.Left, Rect.Top,Panel.Text);

end;

[zds0707]

别忘了
设置：
StatusBar1.UserSystemFont := true ;

[1999]

谢谢了.