Работа с фигурами

[ramzes777]

Как можно сделать чтобы можно было перемещать фигуры по форме и изменять с помощью мыши размер этой фигуры (как до запуска), чтобы она не выделялась в отдельное окно, а была всегда на форме?

[mihali4]

Перемещение.
Практически для любого компонента на форме (пример для Button2):

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button2.perform(WM_SysCommand,SC_DragMove,0);
end;

З.Ы. На примере ListBox1 - и перемещение, и изменение размеров:

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(ListBox1.Handle, GWL_STYLE, GetWindowLong(ListBox1.Handle, GWL_STYLE) or WS_THICKFRAME);
SetWindowLong(ListBox1.Handle, GWL_EXSTYLE, GetWindowLong(ListBox1.Handle, GWL_EXSTYLE) and not WS_EX_CLIENTEDGE);
end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  ListBox1.perform(WM_SysCommand,SC_DragMove,0);
end;

[ramzes777]

18:14
Спасибо! Не думал что так мало кода будет

18:22
С Shape:

procedure TForm1.FormCreate(Sender: TObject);
begin

SetWindowLong(Shape1.Handle, GWL_STYLE, GetWindowLong(Shape1.Handle, GWL_STYLE) or WS_THICKFRAME);
SetWindowLong(Shape1.Handle, GWL_EXSTYLE, GetWindowLong(Shape1.Handle, GWL_EXSTYLE) and not WS_EX_CLIENTEDGE);

end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Shape1.perform(WM_SysCommand,SC_DragMove,0);
end;

Говорит что Handle неизвестный идентификатор, если убрать все из TForm1.FormCreate, то не получается по форме таскать shape.

Как быть?

20:47
Уже не нужно, спасибо!

Рад, что смог помочь.
Тем не менее !
Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
Читаем правила раздела.
По правилам это приравнивается к флуду.