1:
2:
3:
4:
5:
6:
7:
8:
9:

public class myButton : Button
{
    public override bool CanFocus ...  //CanFocus wird nicht erkannt, falsche Syntax?

    public myButton()
    {
       this.CanFocus = false;  //CanFocus erkannt aber schreibgeschützt
    }
}					

1:

this.SetStyle(ControlStyles.Selectable, false);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Button.KeyPress += new KeyPressEventHandler(this.ButtonNoKey);
Button.KeyUp += new KeyEventHandler(this.ButtonNoKey);

private void ButtonNoKey(object sender, KeyPressEventArgs e)
{
    e.Handled=true;
}
private void ButtonNoKey(object sender, KeyEventArgs e)
{
    e.Handled=true;
}					

1:

TabStop = false;					

1:
2:
3:

//procedure in einem timer
GetAsyncKeystate( Taste ))
//Taste könnte ord('A') sein falls du herausfinden willst, ob A gedrückt wurde etc..					

1:
2:
3:
4:
5:
6:
7:

public class NonFocusButton : Button
{
    public NonFocusButton()
    {
        SetStyle(ControlStyles.Selectable, false);
    }
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

void SetControlNonSelectable(Control control)
{
    Type type = control.GetType();
    BindingFlags flags = BindingFlags.NonPublic | BindingFlags.Instance;
    MethodInfo method = type.GetMethod( "SetStyle", flags );
    if(method != null)
    {
        object[] param = { ControlStyles.Selectable, false };
        method.Invoke(control, param);
    }
}					

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := False;
Button1.Visible := True;
end;					

1:
2:
3:
4:
5:

procedure TForm1.ClickButton(Sender: TObject);
begin
(Sender as TButton).Visible := False;
(Sender as TButton).Visible := True;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.IrgendeinButtonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbLeft) then (Sender as TButton).OnClick(Sender); //Diese Zeile ist nur Notwendig, falls der Button eine OnClick-Event besitzt
Button1.Visible := False;
Button1.Visible := True;
end;