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

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

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

как назначить одну процедуру многим компонентам [D6, XP]

Страницы: < 1 2
alexm © (2005-09-22 10:03:00)
Добрый день! Ситуация такова:имеется 25 ComboBox и 25 Shape. При изменении в поле ComboBox соответствующая Shape изменяет цвет.Процедура написана для ComboBox1 и Shape1. Как сделать так чтобы не переписывать эту же процедуру для остальных ComboBox.

alexm (2005-09-22 13:27:00) [21]
В даный момент процедура выглядит так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex <> 0 Then
begin
Shape1.Brush.Color:= clRed ;
Edit1.Text:=TimeToStr(Time);
end
else
begin
Shape1.Brush.Color:= clGreen;
Edit1.Text:='';
end;
end;

icWasya (2005-09-22 11:30:00) [22]
Самое простое - сделать Fame с Combobox и Shape. Обработчик ComboboxClick сделать методом Frame. А на форму поместить уже 25 Frame и ничего не надо будет менять.

Digitman (2005-09-22 10:16:00) [23]
как сейчас выглядит эта процедура ?

Страницы: < 1 2

Наверх

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