Компилятор: Delphi
Поместите в событие OnClick в button1 и button2 следующие коды.Если курсор мышки скрыт, то выбрать button2 можно клавишей Tab. procedure TForm1.Button1Click(Sender: TObject); begin ShowCursor(False); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowCursor(True); end;