怎样能做出象WEB页一样的导航器,就是鼠标移在上面导航项能加亮。(100分)

A

asion

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样能做出象WEB页一样的导航器,就是鼠标移在上面导航项能加亮。
 
procedure TForm1.Panel1MouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
panel1.Color:=clHighlightText;
end;

procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState;
X,
Y: Integer);
begin
panel1.Color:=clBtnFace;
end;
 
HotImages可以吗?
 
当然用HOTIMAGE+IMAGES就可以
 
说穿了,就是两张图片变化而已!
 
FOSSIL
能否EMAIL HOTEMAGE 控件给我吗?
thankyour@21cn.com
在这谢谢大家啦!
 
只要设置hotiamge就可以!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部