[scutarius]

Доброго времени суток. Нашел одну старую тему, но ответить там уже не могу. У автора тот же самый вопрос стоял, что сейчас у меня. Объясните мне пожалуйста, как обработчик назначить другим панелям (объектам)?

[lmikle]

Дык я ж там ответил. В чем проблема?
Обработчик - это метод класса с определенной сигнатурой. Просто сделай нужные методы и вперед.

Код:

type
  TForm1 = class(TForm)
  ...
    procedure MyClick(Sender : TObject);
  end;

...

procedure TForm1.MyClick(Sender : TObject);
begin
  ...
end;

...

begin
  Panel1.OnClick := MyClick;
  Panel2.OnClick := MyClick;
  Button1.OnClick := MyClick;
  ...

[scutarius]

ой, сори, затупил)) я 2 года уже не кодил... забыл многое) спасибо)