Скачать: CL | DM;

Ищу родителей. Использование 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

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

---

← →
Oleg1963 ©   (2009-11-18 14:57) [2]

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

Спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c