speedbutton的flat在设计期为true,这样，代码运行时，在鼠标经过speedbutton有突起，移走时突起消失。但我把程序发布到网上（activeX,b/s 结构数据库），在鼠标经过speedbutton有突起，移走时突起不消失，点击后移走才消失。因此我需要加代码，要实现以下功能：在鼠标经过speedbutton有突起，移走时突起消失。请问个位大大如何实现。非常感谢 ——————————— 抓住快乐！

简单地说就是这样一种功能：在鼠标经过speedbutton有突起（flat := true），移走时突起消失(flat := False)。请教个位大大如何实现。 ——————————— 抓住快乐！

在SpeedButton1 的MouseMove事件中加入如下方法试验一下； procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin SpeedButton1.Flat :=true; end;

这个问题较复杂，涉及到发布成activeX控件。我所需要的的是：透明状态的突起，不是 flat := true (非透明状态的突起).先把它放到一边。看一下这个问题：怎样知道鼠标在那个控件上，假设有各种各样的控件，这个问题更具普遍性 ——————————— 抓住快乐！

procedure TForm1.Timer1Timer(Sender: TObject); var Pt : TPoint; WinCon : TWinControl; WND : HWND; begin GetCursorPos(Pt); WND :=Handle; repeat WinCon := FindControl(WND); WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(Pt)); if WND = 0 then exit; until (WND = WinCon.Handle) or (WinCon.ControlCount <= 0); edit1.Text :=wincon.Name ; end; 设置 Timer1.Interval :=100; Timer1.Enabled :=true; 结果显示在edit1.text 中

我用了一个第三方控件（xpMenu）,把speedbutton 都换成了button,问题得以解决 ——————————— 抓住快乐！