A asion Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-09 #1 怎样能做出象WEB页一样的导航器,就是鼠标移在上面导航项能加亮。
小 小人物 Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-09 #2 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;
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;
A asion Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-11 #6 FOSSIL 能否EMAIL HOTEMAGE 控件给我吗? thankyour@21cn.com 在这谢谢大家啦!