Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
ВнизПодсветка компонента имеющего фокус ввода Найти похожие ветки
← →
RDA (2003-06-22 12:25) [0]На форме несколько различных контролов типа TEdit, TComboBox. Как сделать так чтобы контрол который принимает фокус ввода менял цвет по после выхода востанавливал первоначальный. Можно ли как-то это унифицировать, или необходимо для каждого из них писать в обработке OnEnter, OnExit Компонент.Color:=Цвет.
← →
Юрий Зотов (2003-06-22 13:04) [1]Потребуется только два простейших обработчика. Их надо назначить на события OnEnter и OnExit для ВСЕХ нужных контролов.
type
TFriendControl = class(TControl);
procedure TForm1.ControlEnter(Sender: TObject);
begin
TFriendControl(Sender).Color := clBlue
end;
procedure TForm1.ControlExit(Sender: TObject);
begin
TFriendControl(Sender).Color := clWindow
end;
← →
RDA (2003-06-23 12:02) [2]>>Юрий Зотов
Большое спасибо. У меня код увеличивался на 200-300 строк, 7-10 форм.
← →
Intell (2003-06-23 13:06) [3]Могу ещё посоветовать пакет FlatStyle, там просто указываешь цвета на компоненты. Просто, удобно, красиво.
← →
stalker780 (2003-06-23 13:58) [4]>>TO RDA
Ну ты даешь :)
Ты не создавай новые процедуры, а просто назначая на это событие уже две готовые. Вполне реально сделать всего 2 процедуры общие на весь проект :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c