Текущий архив: 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.033 c
