Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Переменная "Self"

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

evvcom (2005-10-20 16:25:00) [1]

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

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

Alex7 (2005-10-20 15:58:00) [2]
Большое спасибо. Все прошло, но в варианте
TMyControl(Sender).Color := clRed, где
TMyControl = Class(TControl)

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

evvcom (2005-10-20 14:42:00) [3]

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

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

Digitman (2005-10-20 13:54:00) [4]

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

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

Leonid Troyanovsky (2005-10-20 13:51:00) [5]

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

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

The TControl.Color is protected.

--
Regards. LVT.

Digitman (2005-10-20 13:24:00) [6]

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

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

Leonid Troyanovsky (2005-10-20 13:18:00) [7]

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

TEdit(Sender).Color := clRed;

--
Regards, LVT.

Digitman (2005-10-20 12:30:00) [8]
TControl(Sender).Color := clRed

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »