Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: 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 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
3-1128039182
DimonS
2005-09-30 04:13
2005.11.13
Как запретить вставку пустой строки?


6-1122621029
vajo
2005-07-29 11:10
2005.11.13
Загрузка файла из Интернета, а не с прокси


3-1128496966
dreamse
2005-10-05 11:22
2005.11.13
Как получить результат запроса ADOQuery ?


1-1130164870
Griffon
2005-10-24 18:41
2005.11.13
Сумма строк в StringGrid


2-1129874261
Xmen
2005-10-21 09:57
2005.11.13
проблема со знаком " "