Z
zwjChina
Unregistered / Unconfirmed
GUEST, unregistred user!
在Form中放一个Panel
在Panel的OnMouseDown中写如下代码!
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Panel1.Handle, WM_SYSCOMMAND, $F012, 0);
end;
但是我找遍帮助也没找到$F012所代表的意思,以下是帮助中WParam参数的对应值!
SC_CLOSE $F060
SC_CONTEXTHELP $F180
SC_DEFAULT $F160
SC_HOTKEY $F150
SC_HSCROLL $F080
SC_KEYMENU $F100
SC_MAXIMIZE $F030
SC_MINIMIZE $F020
SC_MONITORPOWER $F170
SC_MOUSEMENU $F090
SC_MOVE $F010
SC_NEXTWINDOW $F040
SC_PREVWINDOW $F050
SC_RESTORE $F120
SC_SCREENSAVE $F140
SC_SIZE $F000
SC_TASKLIST $F130
SC_VSCROLL $F070
其实上面的代码$F012的取值为以下都可以达到
拖动Panel的效果,[$F009,$F012, $F013..$F019]
而且你把值换成如$F001, $F002 .. $F008等可以看到很多效果!
不知道哪里有相关的说明。为什么这些东西没有写入到帮助中呢?
在Panel的OnMouseDown中写如下代码!
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Panel1.Handle, WM_SYSCOMMAND, $F012, 0);
end;
但是我找遍帮助也没找到$F012所代表的意思,以下是帮助中WParam参数的对应值!
SC_CLOSE $F060
SC_CONTEXTHELP $F180
SC_DEFAULT $F160
SC_HOTKEY $F150
SC_HSCROLL $F080
SC_KEYMENU $F100
SC_MAXIMIZE $F030
SC_MINIMIZE $F020
SC_MONITORPOWER $F170
SC_MOUSEMENU $F090
SC_MOVE $F010
SC_NEXTWINDOW $F040
SC_PREVWINDOW $F050
SC_RESTORE $F120
SC_SCREENSAVE $F140
SC_SIZE $F000
SC_TASKLIST $F130
SC_VSCROLL $F070
其实上面的代码$F012的取值为以下都可以达到
拖动Panel的效果,[$F009,$F012, $F013..$F019]
而且你把值换成如$F001, $F002 .. $F008等可以看到很多效果!
不知道哪里有相关的说明。为什么这些东西没有写入到帮助中呢?