Ищу родителей. Использование GetParent.

← →
Oleg1963 © (2009-11-18 14:42) [0]

Здравствуете уважаемые коллеги.
Такая задача. На форме имеем 4 компонента Edit . Таскаю мышь по форме. При наступлении события OnMouseMove в любом ЕДИТе срабатывает процедура меняющая цвет текста. Этакий псевдокурсор.Ушел с поля-выделение снимается.
В обработчике:
procedure TForm1.EditMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
ParentHWnd : longint;
begin
GetParent( ParentHWnd);
end;

А как его использовать, чтобы менялся цвет именно там где надо?
Привести его к виду Edit4(например).Color:=clWindow
Заранее спасибо.

← →
Palladin © (2009-11-18 14:45) [1]

(Sender as TEdit).Color

если я конечно правильно тебя понял

Великолепно! Все работает.Курсор включается и выключается. На кой ляд тогда я GetParent прицепил. А такую конструкцию (Sender as TEdit) я еще не встречал.Дельфи плохо знаю. Пошел читать умные книжки :-)

Спасибо!

Ищу родителей. Использование GetParent. Найти похожие ветки