关于按钮显示的问题

SpeedButton1.Flat := True;

解决方案 »

  1.   

    在鼠标的mousemove事件中，
    speedbutton1.flat:=true;
    speedbutton1.visible:=true;
      

  2.   

    设置Flat属性为true
    然后在OnmouseOn中设置其Caption为你想要的
    在Onmouseleave中设置其Caption为无
    试试吧
      

  3.   

    试过了，不行啊！eulb:speedbutton 中好象没有你说的事件。
      

  4.   

    SpeedButton1MouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);
      

  5.   

    speedbutton都隐藏了还有什么move事件？？？
      

  6.   

    NO1:
    speedbutton1.flat:=true;
    speedbutton1.caption:='';
    NO2:
    speedbutton1.Visible :=false;FormMouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);
    if (x=..) and (y=..) then
    SpeedButton1.Visible:=True;
      

  7.   

    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
    SpeedButton1.Flat := True;
      

  8.   

    procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    begin
      speedbutton1.Flat:=false;
    end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
       speedbutton1.flat:=true;
    end;
      

  9.   

    我同意以下方法设置Flat属性为true
    然后在OnmouseOn中设置其Caption为你想要的
    在Onmouseleave中设置其Caption为无
    试试吧