Вопрос по компоненту memo

[Handy]

Подскажите пожалуйста, как в компоненте memo можно сделать так, что бы пользователь мог сам менять размеры окна memo и двигать его, или хотя бы двигать.

[asmodey1]

У каждого визуального компонента есть свойства Left, Top, Height, Width...

[Handy]

Сообщение от asmodey1

У каждого визуального компонента есть свойства Left, Top, Height, Width...

Я это понимаю, но как сделать так, что бы можно было менять расположение компонента в форме? То что я сам его могу тягать - я понимаю)))

[Serge_Bliznykov]

пример из DelphiWorld:

Как перемещать компонент во время работы программы
Автор: Олег Кулабухов

Нижеприведенный пример показывает как перемещать компонент при перетаскивании его нажатой левой кнопкой мыши при нажатом Ctrl.

rocedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
{$IFNDEF WIN32}
var
  pt: TPoint;
{$ENDIF}
begin
  if ssCtrl in Shift then
  begin
    ReleaseCapture;
    SendMessage(Memo1.Handle, WM_SYSCOMMAND, 61458, 0);
{$IFNDEF WIN32}
    GetCursorPos(pt);
    SendMessage(Button1.Handle,
      WM_LBUTTONUP,
      MK_CONTROL,
      Longint(pt));
{$ENDIF}
  end;
end;

p.s. разумеется, если код будет эксплуатироваться только под Windows - тогда выкинуть всё что в {$IFNDEF WIN32}... {$ENDIF}

[asmodey1]

Сообщение от Handy

Я это понимаю, но как сделать так, что бы можно было менять расположение компонента в форме? То что я сам его могу тягать - я понимаю)))

Практически для любого компонента на форме (на примере 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;

Изменять размер любого оконного компонента можно, поколдовав немного над его стилями. Например, если для Edit1 установить стили :

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

то можно изменять его размеры во время работы программы (run-time).
Полный пример :

procedure TForm1.Button11Click(Sender: TObject); // включаем режим 
begin
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or WS_THICKFRAME);
SetWindowLong(Edit1.Handle, GWL_EXSTYLE, GetWindowLong(Edit1.Handle, GWL_EXSTYLE) and not WS_EX_CLIENTEDGE);
end;

procedure TForm1.Button12Click(Sender: TObject); // отключаем режим
begin
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) and not WS_THICKFRAME);
SetWindowLong(Edit1.Handle, GWL_EXSTYLE, GetWindowLong(Edit1.Handle, GWL_EXSTYLE) and WS_EX_CLIENTEDGE);
end;

Можете привязать эти обработчики не к кнопкам, а к сочетаниям : нажатие кнопки мышки + CTRL, например - для включения режима и + ALT - для выключения...

[Handy]

С memo разобрался сразу и все работало. А вот с groupbox не хочет. В чем может быть проблема?
В описании:

procedure GroupBox35MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

сам код:

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

[Handy]

А все, понял. Надо было просто в маусдаун загнать процедуру.