如何使用Windows本身的API来进行窗口的移动和大小调整

Question

这是移动窗体的Windows API，具体的请参照帮助文件。function MoveWindow(hWnd: HWND; X, Y, nWidth, nHeight: Integer; bRepaint: BOOL): BOOL; stdcall;hWnd指窗体的句柄，也即Form1.Handle ,x,y即你要移动到的地方的左上点，并设bRepaint为false

Answer 1

你可以在 Panel 的鼠标事件里写代码来移动 Form 呀
1、OnMouseDown
  OldX := X;
  OldY := Y;2、OnMouseMove
  if Shift = [ssLeft] then
  begin
    Form1.Left := Form1.Left + (X - OldX); 
    Form1.Top := Form1.Top + (Y - OldY); 
  end;

Answer 2

invoke this api SetWindowPos

Answer 3

我最近发现了一个消息:WM_SYSTEMCOMMAND(或者有缩写,忘记了)
好像这个消息包含了很多的内容.比如应用程序的最小化之类的.
谁有这个消息的详细资料?贴出来看看,我想可能会对这个问题有所帮助的.

Answer 4

SetWindowPos可以满足你所有的需要