|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
имитация клика по radiobutton
Нужно симетировать клик мышкой по radiobutton1.
Пробую разные варианты на подобие: Код:
procedure TForm1.Button54Click(Sender: TObject); var FormHandle: THandle; begin FormHandle := Findwindow('TForm1', 'radiobutton1'); if FormHandle <> 0 then begin SendMessage(FormHandle, WM_LBUTTONDOWN, 0, 0); SendMessage(FormHandle, WM_LBUTTONUP, 0, 0); end; end; |
#2
|
||||
|
||||
Findwindow ищет ОКНО по имени класса и заголовку.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
1. создай "пустое" событие OnClick для своего RadioButton
2. кликай по нему с любого участка кода Код:
RadioButton1Click(nil); Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
cyborgg4655 (12.04.2013)
|
#5
|
||||
|
||||
Цитата:
От пустого события толку не будет, а вот если вместо вызова события написать просто такой код: Код:
RadioButton1.Checked := not RadioButton1.Checked; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 12.04.2013 в 02:41. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
cyborgg4655 (12.04.2013)
|
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Цитата:
Цитата:
не забыл)) я лишь предоставил общий принцип действия. а крутить его можно уже как угодно. Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|