[结贴]SpeedButton的显示

didi0225

如图,我在界面放了30个SpeedButton,设置图片

现在问题是鼠标快速划过再划走的时候,SpeedButton状态还是凸起,没有变回来

有什么解决的方法？
或者能让它鼠标移动的时候没有变化

zfang

取消勾选： Flat

didi0225

取消了就不能透明了呀

zfang

OnMouseMove事件中自己加代码处理一下看看。

didi0225

不知道怎么写 :confused:

zfang

网上找找，比如
http://topic.csdn.net/t/20020607/09/785124.html

didi0225

解决了,谢谢

zfang

恭喜，分享下吧。

didi0225

所有控件调用下面这个
procedure TMainForm.SpeedButton21MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
i:Integer;
begin
  TSpeedButton(Sender).Flat:=False;
  with  pnlDesktopTreeView do
  begin
  for i:=0 to ControlCount-1 do
  begin
  if  Controls is TSpeedButton  then //用is来判断类型
      if  TSpeedButton(Sender).Name<>TSpeedButton(Controls).Name then
  TSpeedButton(Controls).Flat:=True;
  end;
  end;
end;
在它的容器上也写上
procedure TMainForm.pnlDesktopTreeViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Var
i:Integer;
begin
  with  pnlDesktopTreeView do
  begin
  for i:=0 to ControlCount-1 do
  begin
  if  Controls is TSpeedButton  then //用is来判断类型
      TSpeedButton(Controls).Flat:=True;
  end;
  end;
end;

:confused:  感觉有点笨拙

其实我想试下重载不要它写的MouseMove事件,但不会写

TSpeedButton = class(TGraphicControl)
protected
procedure MouseDown(Button: TMouseButton; Shift: Business.System.TShiftState; X: Longint; Y: Longint); override;
public
end;

procedure TSpeedButton .MouseDown(Button: TMouseButton; Shift: Business.System.TShiftState; X: Longint; Y: Longint);
begin
//
end;
但一运行就出错,请问怎么改