VPF::Один обработчик событий для 100 и более объектов

Nikolasha

Дата 9.10.2005, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 6.5.2005

Репутация: нет
Всего: нет

На форме имеется 100 объектов типа TShape.
Вопрос: нужно чтобы при нажатии на любую из этих кнопок ее свойство менялось на procedure

Код


TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Shape.Brush.Style:=bsDiagCross;
end;

Конечно можно написать 100 обработчиков событий, но это идиотизм. Каким образом можно это реализовать? Заранее спасибо.

Это сообщение отредактировал(а) Girder - 10.10.2005, 11:05

Pakshin A. S.

Дата 9.10.2005, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Создаешь обработчик у одного из компонентов

Код


procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 (Sender AS TShape).Brush.Style:=bsDiagCross;
end;

А у остальных просто выбираешь из выподающего списка в инспекторе объектов название Shape1MouseDown...

Nikolasha

Дата 9.10.2005, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 6.5.2005

Репутация: нет
Всего: нет

Спасибо, уже сам дошел.

With Sender as TShape do Brush.Style:=bsDiagCross; smile

Guest

Дата 10.10.2005, 13:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А каким образом можно потом ВСЕМ им присвоить одно и тоже свойство? Brush.Style:=

Pakshin A. S.

Дата 10.10.2005, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Смотри поиск по словам FindComponent... про Едиты часто эта тема поднимается...
Добавлено @ 21:45
Один из способов:

Код


with Form1 do
 for z:=ComponentCount - 1 downto 0 do
   if Components[z] is TShape then
     TShape(Components[z]).Brush.Style:= buf;

Это сообщение отредактировал(а) lonely delphist - 10.10.2005, 21:46

Pakshin A. S.

Дата 10.10.2005, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Другой вариант

Код


ShapeCount:=100;
for i:=1 to ShapeCount do
begin
 Shape:= TShape(FindComponent(Format('Edit%d', [i])));
 Shape.Brush.Style:=buf;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »