procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TShape then begin
TShape(Components[I]).Cursor := crSizeAll;
TShape(Components[I]).OnMouseDown := ShapeMouseDown;
TShape(Components[I]).OnMouseMove := ShapeMouseMove;
TShape(Components[I]).OnMouseUp := ShapeMouseUp;
end;
end;
procedure TForm1.Shape3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Sender is TShape) then
showmessage((Sender as TShape).Name);
end;