Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
3-23525
Nicolas_
2002-06-18 12:41
2002.07.08
Как заполнить combobox типами полей?


1-23578
VDen
2002-06-26 16:42
2002.07.08
Поиск в TMemo


1-23543
antonioxxx
2002-06-26 16:13
2002.07.08
Как избавиться от Synchronize?


1-23664
Ivan Voronov
2002-06-25 21:58
2002.07.08
Масштабирование изображения


14-23751
VictorT
2002-06-06 16:12
2002.07.08
Турбо Паскаль





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский