Как сделать панел в run-time с возможностью изменения размера
Оформил: DeeCo
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift:
TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(TWinControl(Sender).Handle, WM_SYSCOMMAND, $F008, 0);
end;
|