Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.12.28;
Скачать: CL | DM;

Вниз

Есть чужое приложение, нужно определить состояние Tbutton   Найти похожие ветки 

 
Dmitrij   (2008-02-12 20:24) [0]

т.е. Enabled оно или disable?
Очень срочно нужно, если enabled то нажать на нее функцией SendMessage
Подскажите плз!!!


 
Dib@zol ©   (2008-02-12 20:40) [1]

procedure TryClick;
var
 H, S : THandle;
begin
 H:=FindWindow("TForm1", "Form1");
 H:=FindWindowEx(H, 0, "TButton", "Button1");
 if H<>0 then begin
   S:=GetWindowLong(H, GWL_STYLE);
   if S and WS_DISABLED = 0 then begin
     MessageBox(hWnd, "Кнопка активна! Нажимаем...", "", 0);
     SendMessage(H, BM_CLICK, 0, 0);
   end else MessageBox(hWnd, "Кнопка неактивна!", "", 0);
 end;
end;


Что-то типа этого. Протестировал - вроде как пашет.


 
Dib@zol ©   (2008-02-12 20:42) [2]

Замени "TForm1" и "Form1" на соответсно класс и имя родительского для кнопки окна, а "TButton" и "Button1" на "BUTTON"(если прога на WinAPI) и соответственно на имя кнопки. МессаджБоксы убери.


 
Leonid Troyanovsky ©   (2008-02-12 20:54) [3]


> Dmitrij   (12.02.08 20:24)  

> Очень срочно нужно, если enabled то нажать на нее функцией
> SendMessage

И зачем если? Жми всегда.
Тем более, что срочно.

--
Regards, LVT.



Страницы: 1 вся ветка

Текущий архив: 2008.12.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1226578957
misha_shar
2008-11-13 15:22
2008.12.28
Cobitia


15-1225349122
passlight
2008-10-30 09:45
2008.12.28
Следи за кредитом, будь осторожен...


15-1224873194
Andy BitOff
2008-10-24 22:33
2008.12.28
MS Access или не MS Access, вот в чем вопрос.


15-1225057088
NavigatorNeba
2008-10-27 00:38
2008.12.28
Компонент BitBtn с двумя Caption.


2-1226928481
noob_one
2008-11-17 16:28
2008.12.28
Query.Eof или Query.recordcount.