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

Petro123

Дата 19.10.2007, 14:40 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

В общем есть RadioGroup. Необходимо перехватить событие нажатия мышью на какой нибудь радио кнопке.
Вроде все просто

Цитата

procedure TForm.RadioGroup1Click(Sender: TObject);
begin
Case RadioGroup1.ItemIndex of
0:
1:
end;
end;

Однако событие не возникает если щелкаем по выбранной кнопке!
Как быть????? smile

THandle

Дата 19.10.2007, 14:53 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Код


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
 0: ShowMessage('0');
 1: ShowMessage('1');
 2: ShowMessage('2');
end;
end;

Попробуй, показывает сообщение?

У меня работает.

VICTAR

Дата 19.10.2007, 15:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

THandle, Petro123 имеет ввиду, что при повторном клике на выбранном Item`e не вызывается RadioGroupOnClick.

Это сообщение отредактировал(а) VICTAR - 19.10.2007, 15:52

Petro123

Дата 20.10.2007, 07:31 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата

THandle, Petro123 имеет ввиду, что при повторном клике на выбранном Item`e не вызывается RadioGroupOnClick.

Точно! Так как же быть?

Petro123

Дата 20.10.2007, 08:50 (ссылка)

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

Загрузка ...

Опытный

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

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

В принципе можно вместо радиогруппы использовать групбокс, с размещенными на ней радиобаттонами.
И событие обрабатывать не MouseClick, а MouseUp/Down...
Просто хотелось знать еще и вариант с радиокнопками, можно так

Цитата

var OldProc:pointer;
function MyWndProcG(wnd: HWnd; Message, WParam, LParam: Longint): Longint; stdcall;
begin
Result:= CallWindowProc(OldProc,wnd,Message,WParam,LParam);

case Message of
    WM_LBUTTONUp:     if form4.RadioGroup1.ItemIndex=1 then
                    begin
                        showmessage('');
                    end;
  end;
end;
OldProc:=pointer(SetWindowLong(RadioGroup2.Buttons[1].Handle,GWL_WNDPROC,integer(@MyWndProcG)));

Rrader

Дата 20.10.2007, 08:55 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Здесь может быть несколько решений. Простейшее, на мой взгляд, я поместил в прикреплённый файл.

Присоединённый файл ( Кол-во скачиваний: 9 )

RadioGroup.zip 5,94 Kb

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

Let's do this quickly!
Rest in peace, Vit!

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