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

Переменная "Self"   Найти похожие ветки 

← →
Alex7   (2005-10-20 12:26) [0]

Уважаемые мастера, подскажите, пожалуйста:
Как изменить цвет компонента не указывая его имени?
Попытался применить "Self" ,  но покраснела сама форма.
 В чем ошибка ?
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Self.Color := clRed;
end;
Спасибо.

---

← →
Digitman ©   (2005-10-20 12:30) [1]

TControl(Sender).Color := clRed

---

← →
Leonid Troyanovsky ©   (2005-10-20 13:18) [2]

> Digitman ©   (20.10.05 12:30) [1]
> TControl(Sender).Color := clRed


 TEdit(Sender).Color := clRed;

--
Regards, LVT.

---

← →
Digitman ©   (2005-10-20 13:24) [3]

> Leonid Troyanovsky ©   (20.10.05 13:18) [2]


TEdit же - непрямой наследник TControl..

---

← →
Leonid Troyanovsky ©   (2005-10-20 13:51) [4]

> Digitman ©   (20.10.05 13:24) [3]

> TEdit же - непрямой наследник TControl..


The TControl.Color is protected.

--
Regards. LVT.

---

← →
Digitman ©   (2005-10-20 13:54) [5]

> Leonid Troyanovsky ©   (20.10.05 13:51) [4]


точно.
запамятовал.

---

← →
evvcom ©   (2005-10-20 14:42) [6]

> TEdit же - непрямой наследник TControl..

Кстати, пофиг.

---

← →
Alex7   (2005-10-20 15:58) [7]

Большое спасибо. Все прошло, но в варианте  
TMyControl(Sender).Color := clRed, где
TMyControl = Class(TControl)
 
Вариант  TEdit(Sender).Color := clRed;  хуже т.к      
он не подойдет для других компонентов
(например: ComboBox)

---

← →
evvcom ©   (2005-10-20 16:25) [8]

> Вариант  TEdit(Sender).Color := clRed;  хуже т.к      
> он не подойдет для других компонентов
> (например: ComboBox)

Смотрится действительно может и не очень красиво, но подойдет и для TComboBox. Говорю пофиг.

---

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

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



Память: 0.46 MB
Время: 0.023 c