Главная страница
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.026 c
2-1129784806
SMATMP
2005-10-20 09:06
2005.11.13
LoadFromFile


2-1129560830
Yurij-7
2005-10-17 18:53
2005.11.13
Аутентификация на локальных базах


2-1129712316
Perf2k2
2005-10-19 12:58
2005.11.13
Всем снова привет - проблема с Query


2-1129890460
Шурик Ш
2005-10-21 14:27
2005.11.13
Вопрос по TXMLDocument


2-1129750903
Анна
2005-10-19 23:41
2005.11.13
Delphi