Главная страница
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.042 c
1-1129813791
markers
2005-10-20 17:09
2005.11.13
Высота и ширина PopUp`a


2-1130175788
redlord
2005-10-24 21:43
2005.11.13
запись в stringlist вместо объекта переменной типа integer


14-1130101965
saNat
2005-10-24 01:12
2005.11.13
Поиск ошибки в проекте


2-1129801967
Arimag
2005-10-20 13:52
2005.11.13
Как проиграть mp3 файл?


3-1128333732
Prohodil Mimo
2005-10-03 14:02
2005.11.13
Как правильно записать картинку из TImage в базу FB-1.5 ?