Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Как объеденить одинаковые свойства для всех edit?   Найти похожие ветки 

 
PTE ©   (2002-06-17 20:57) [0]

Как объеденить одинаковые свойства для всех edit?
для всех едитов на форме установлено менять цвет формы при
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Form1.Edit1.Color :=clWhite;
end;

и
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Form1.Edit1.Color :=$00B6A79A;
end;

Ведь наверное можно для них всех объеденить как-то эти свойства? а не писать для каждого каждый раз одно и то же
подскажите?


 
Anatoly Podgoretsky ©   (2002-06-17 21:03) [1]

Конечно, назначь всем один и тот же обработчик


 
PTE ©   (2002-06-17 21:14) [2]

а как сразу всем назначить?


 
Anatoly Podgoretsky ©   (2002-06-17 21:19) [3]

А когда?


 
PTE ©   (2002-06-18 10:05) [4]

в какую сторону рыть то? подскажите


 
Kaban   (2002-06-18 10:13) [5]

Ты вообще пользовался когда нибудь Object Inspector. Там можно обработчики событий назначать


 
PTE ©   (2002-06-18 12:22) [6]

так вот учусь пользоваться , я же вверхем своем вопросе показываю как я обрабатываю для каждого, хотел узнать как можно короче это дело описать сразу для всех


 
Skyle ©   (2002-06-18 13:42) [7]

1) Есть такая вещь, как обработчик события. Создаёшь процедурку какую-нить (допустим Edit1OnEnter, хотя я бы сделал сам что-нить типа Repaint) а потом всем её назначаешь в соответствующем месте.
Теперь более конкретно... Пусть ты создаёшь обработчик для первого едита, в котором пишешь:

procedure TMySuperForm.Edit1OnEnter(Sender: TObject);
begin
IF (Sender as TEdit).Color = Color1 then
(Sender as TEdit).Color := Color2
else
(Sender as TEdit).Color := Color1;
end;


Потом назначаешь этот обработчик всем своим едитам и живёшь счастливо...%)
Можно ещё и экшн создать...Тогда ваще супер всё будет:)
Потом просто



Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
14-1181
explorer
2002-05-31 10:10
2002.07.01
Расскажите, что-нибудь о InfoPower?


1-1063
irmantukas
2002-06-19 02:02
2002.07.01
Помогите пожалуйста! Как узнать все про дате


1-1017
AFROLOV
2002-06-18 10:34
2002.07.01
Ошибка при закрытии программы


4-1241
Alexander
2002-05-02 14:57
2002.07.01
А как, по ID или Handle изменить шрифт у StaticText?


3-909
MaxVlasov
2002-06-05 22:06
2002.07.01
Delphi & Interbase - метаданные