VPF::Кнопка - Форум программистов

Sunvas

Дата 21.9.2006, 16:51 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Как сделать кнопку, которая ваще никак не реагирует на клаву: не выделяется по Тав, не нажимается ни визуально ни физически при помощи пробела или Ентера, не выделяется после клика мыши.
Кнопка должна реагировать только на щелчек мыши.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Snowy

Дата 21.9.2006, 17:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Эта кнопка называется TPanel

Yanis

Дата 21.9.2006, 17:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not bDown then
    Exit;

  { код }
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := 0;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    bDown := True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    bDown := False;
end;

Это сообщение отредактировал(а) Yanis - 21.9.2006, 17:14

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

*щёлк*

Sunvas

Дата 21.9.2006, 17:24 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Snowy @ 21.9.2006, 17:13

)

Эта кнопка называется TPanel

Она визуально не нажимается при нажатии мыши. smile

Yanis, неплохая попытка, но хотелось бы еще и убрать выделени после щелчка мыши..

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 21.9.2006, 17:29 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Sunvas @ 21.9.2006, 18:24

)

Yanis, неплохая попытка, но хотелось бы еще и убрать выделени после щелчка мыши..

Ну дык...

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  { код }
  Button1.Perform(WM_KILLFOCUS, 0, 0);
  Form1.SetFocusedControl(Form1);
end;

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

*щёлк*

Alexeis

Дата 21.9.2006, 17:31 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

А SpeedButton не подойдет?

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Sunvas

Дата 21.9.2006, 17:31 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Молодца Yanis, +.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Snowy

Дата 21.9.2006, 17:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Sunvas @ 21.9.2006, 17:24

)

Она визуально не нажимается при нажатии мыши.

Отчегож.
На онклике меняем raised на lovered, а потом обратно - вот тебе и эффект нажатия...

Sunvas

Дата 21.9.2006, 17:36 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Snowy @ 21.9.2006, 17:34

)

На онклике меняем raised на lovered, а потом обратно - вот тебе и эффект нажатия...

Глючно выглядит...

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 21.9.2006, 17:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(alexeis1 @ 21.9.2006, 18:31

)

А SpeedButton не подойдет?

Я бы например так и сделал. Тоже хотелось бы знать почему Sunvas хочет именно TButton smile

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

*щёлк*

Sunvas

Дата 21.9.2006, 17:41 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Yanis @ 21.9.2006, 17:38

)

Я бы например так и сделал. Тоже хотелось бы знать почему Sunvas хочет именно TButton

Tbutton имеет хэндл, а speed не имеет. У меня была такая идея, но мне нужно кнопку расскасить.. Поэтому я также создал тему с раскраской speedbutton.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Alexeis

Дата 21.9.2006, 17:44 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Sunvas @ 21.9.2006, 17:41

)

но мне нужно кнопку расскасить.

Код


SpeedButton1.Glyph := image1.picture.bitmap;

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

Sunvas

Дата 22.9.2006, 15:31 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Yanis @ 21.9.2006, 17:29

)

Button1.Perform(WM_KILLFOCUS, 0, 0);
Form1.SetFocusedControl(Form1);

Это не выход! Вот сейчас заметил главные недостаток: если у меня был активен перед этим едит какой-то, то он все-таки потеряет фокус..

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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