如何替换statusbar上的图标(50分)

江

江竹人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #1

各位富翁：
我在statusbar上设了二个Panels,两个的style为psOwnerDraw,
分别在两个Panels上加了个ICON图标，现在我想用鼠标点第一个图标时，
能用另外一个图标替代当前位置的图标！

 

老

老人家

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #2

>>分别在两个Panels上加了个ICON图标
你是如何加的
写出代码或步邹

 

江

江竹人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #3

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
begin
ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
end;
end;

 

D

daiwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #4

op