[cyborgg4655]

Нужно симетировать клик мышкой по 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;

Но не как немогу выдернуть хендл radiobutton'a... Подскажите пожалуйста в чем у меня ошибка?

[M.A.D.M.A.N.]

Findwindow ищет ОКНО по имени класса и заголовку.

[cyborgg4655]

Сообщение от M.A.D.M.A.N.

Findwindow ищет ОКНО по имени класса и заголовку.

А как мне найти radiobutton?

[Yurk@]

1. создай "пустое" событие OnClick для своего RadioButton
2. кликай по нему с любого участка кода

Код:

RadioButton1Click(nil);

[Страдалецъ]

Сообщение от Yurk@

1. создай "пустое" событие OnClick для своего RadioButton
2. кликай по нему с любого участка кода

Код:

RadioButton1Click(nil);

А ты сам пробовал такой способ? Попробуй - удивишься результату.
От пустого события толку не будет, а вот если вместо вызова события написать просто такой код:

Код:

RadioButton1.Checked := not RadioButton1.Checked;

оно ведь и правда заработает.

[cyborgg4655]

Сообщение от Страдалецъ

А ты сам пробовал такой способ? Попробуй - удивишься результату.
От пустого события толку не будет, а вот если вместо вызова события написать просто такой код:

Код:

RadioButton1.Checked := not RadioButton1.Checked;

оно ведь и правда заработает.

Спасибо большое! Работает идеально!)

[cyborgg4655]

Сообщение от Yurk@

1. создай "пустое" событие OnClick для своего RadioButton
2. кликай по нему с любого участка кода

Код:

RadioButton1Click(nil);

Т.к у меня есть событие onclick аш в 50 строк) Твой вариант тоже рабоает прекрастно, но ты забыл про маленькую доработочку в ввиду radiobutton1.cheked:=true;

[Yurk@]

Сообщение от Страдалецъ

А ты сам пробовал такой способ?

пробовал

Сообщение от cyborgg4655

... но ты забыл про маленькую доработочку в ввиду radiobutton1.cheked:=true;

не забыл))
я лишь предоставил общий принцип действия. а крутить его можно уже как угодно.