VPF::Как сделать кнопку с фиксацией

Dias2004

Дата 20.2.2006, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 24.1.2006
Где: Москва

Репутация: нет
Всего: нет

Не нашел готовый компонент "кнопка с фиксацией".
Это фактически check-box, но выглядеть он должен как кнопка. У кнопки два состояния - нажата и отжата.

Просветите пожалуйста новичка - есть ли такой готовый компонент?

Snowy

Дата 20.2.2006, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

TSpeedButton.

Guedda

Дата 20.2.2006, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Можешь сделать так:

Код


var
  ChkBx : TCheckBox;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChkBx := TCheckBox.Create(Button1);
  ChkBx.Parent := Button1;
  ChkBx.Top := (Button1.Height div 2) - (ChkBx.Height div 2);
  ChkBx.Left := 19;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChkBx.Checked := not ChkBx.Checked;
end;

--------------------

Ll 2

Snowy

Дата 20.2.2006, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Зачем такие трудности?
Просто кидаем на форму TSpeedButton.
Выставляем ему св-ва AllowAllUp в true и GroupIndex в -1.
И все.

Dias2004

Дата 21.2.2006, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 24.1.2006
Где: Москва

Репутация: нет
Всего: нет

Вот оно - ключевое слово - AllowAllUp!
А то без него одиночная кнопка не хотела отжиматься.

А вот GroupIndex может быть любым, отличным от нуля.

Спасибо всем, проблема решена. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »