请问如何使控件不获取焦点？

TEdit和TButton~

解决方案 »

  1.   

    Edit1.Enabled := False;
    Button1.Enabled := False;
      

  2.   

    我还需要这Button能按~~~~
    只是不想它获取焦点~~~~~
      

  3.   

    Edit1.TabStop := False;
    Button1.TabStop := False;
      

  4.   

    >>我还需要这Button能按~~~~
    procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      button2.SetFocus;//把焦点转移到任意的地方
    end;
      

  5.   

    最简单的方法：使用TLabel，TSpeedButton等本来就没有焦点的控件
      

  6.   

    用SpeedButton代替Button控件即可
      

  7.   

    谢谢啦~
    不过还有其他方法吗？
    所有控件都不想要焦点~就像windows的calculator那样~~