| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ищу родителей. Использование GetParent. [D7, XP]
Oleg1963 © (2009-11-18 14:42:00)Здравствуете уважаемые коллеги.
Такая задача. На форме имеем 4 компонента Edit . Таскаю мышь по форме. При наступлении события OnMouseMove в любом ЕДИТе срабатывает процедура меняющая цвет текста. Этакий псевдокурсор.Ушел с поля-выделение снимается.
В обработчике:
procedure TForm1.EditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
ParentHWnd : longint;
begin
GetParent( ParentHWnd);
end;
А как его использовать, чтобы менялся цвет именно там где надо?
Привести его к виду Edit4(например).Color:=clWindow
Заранее спасибо.
Oleg1963 (2009-11-18 14:57:00) [1]Великолепно! Все работает.Курсор включается и выключается. На кой ляд тогда я GetParent прицепил. А такую конструкцию (Sender as TEdit) я еще не встречал.Дельфи плохо знаю. Пошел читать умные книжки :-)
Спасибо!
Palladin (2009-11-18 14:45:00) [2](Sender as TEdit).Color
если я конечно правильно тебя понял
| |
