Одна функция для нескольких объектов

[Salomon]

Суть просьбы такая:
Нужна функция которая будет изменять размеры Shape. На форме 15 шейпов, и эта функция должна изменять размеры в зависимости от щелчка мышки. Скажем, щёлкаем по 1ому шейпу- изменяются размеры ТОЛЬКО первого. по Второму- ТОЛЬКО второго и т.д.

[SNUPY]

Типа пример:

procedure TForm1.ShapeContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  TShape(Sender).Brush.Color:=clred;
end;

Назначь всем шэйпам эту продцедуру на событие OnContextPopup и увидиш, что будет с ними при нажатии правой кнопкой.

[Salomon]

Спасибо. А то что бы прога работала я пока функций понаписал кучу =)))