Здравствуйте, коллеги!
Есть необходимость сделать так, чтобы форма ресайзилась по драгу контрола или картинки в правом нижнем углу формы. У самой формы границ нету: (BorderStyle := bsNone;)
Собственно вопрос: как это сделать?
Я вот нарыл прекрасный способ перетаскивания окна за контрол.
| Код |
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.Perform(WM_SysCommand, SC_DragMove, 0);
end;
|
полагаю, похожим способом можно и ресайз сделать, но не знаю, какие константы отвечают за ресайз. Может кто подсказать? М.б., есть альтернативное решение? |
)