神奇的$F012消息!
Lin 2000-04-12 09:27:00 现在,越来越多的应用程序没有标题栏,支持Skin。但是怎样移动窗口才方便呢?请看:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
end;
在Form1的空白区按住鼠标拖动试试?