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

Вниз

Ну ответьте плиз   Найти похожие ветки 

 
MisterBin ©   (2002-05-09 15:41) [0]

Допустим, имеется чужое окно. На нём:

Label1, Button1.
Label1.Enabled:=False;
Button1.Enabled:=False;

Заметьте, что это именно чужое постороннее окно.
При нажатии на кнопку, когда она активна, Label1 тоже переходит в значение ENABLED:=TRUE;

Вопрос:
Как написать свою программу, которая делает такое:
При наведении курсора на чужое окно (в данном случае, описанное выше) неактивная кнопка должна стать активной. Т.е. нужно, чтобы программа меняла значения Enabled других программ.

Если кто-то знает, но нехочит тут говорить, пишите на stas_savelnikov@ukr.net

Можно код?


 
Song ©   (2002-05-09 21:43) [1]

EnableWindow()


 
ION T ©   (2002-05-09 22:13) [2]

Шо-то типа такого:

procedure ToggleWindowUnderCursor;
var hndl: hwnd;
pt: TPoint;
wInfo: TWindowInfo;
begin
fillchar(pt, sizeof(pt), 0);
GetCursorPos(pt);
hndl:= WindowFromPoint(pt);
windows.ScreenToClient(hndl, pt);
hndl:= ChildWindowFromPointEx(hndl, pt, CWP_SKIPINVISIBLE);
fillchar(wInfo, sizeof(wInfo), 0);
GetWindowInfo(hndl, wInfo);
if (wInfo.dwStyle and ws_disabled= ws_disabled) and
(MessageDlg("Do you want to enable the window?", mtConfirmation, [mbYes, mbNo], 0)= mrYes) then
EnableWindow(hndl, true);
end;


Вызывать можешь по таймеру...


 
ION T ©   (2002-05-09 22:16) [3]

Ошибочка вышла - процедуру надо назвать EnableWindowUnderCursor() а не Toggle...()



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-23649
Looser
2002-06-26 09:34
2002.07.08
Компилятор выдает ошибку Access violation... Need Help!


1-23674
Zgonky
2002-06-26 14:47
2002.07.08
Собственный шрифт у ячейки StringGrid a


1-23601
Paco
2002-06-24 13:37
2002.07.08
Как избавиться от borlndmm.dll, cc3250mt.dll и bpl-вайлов


14-23727
DeepProg
2002-06-05 18:32
2002.07.08
ShellExecute


1-23538
Maxal
2002-06-26 16:41
2002.07.08
Ярлык