用图片, 加一个Panel和IMAGE,就可以了Panel的MouseDown这么写
procedure TForm1.panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
Tcontrol(sender).Perform(WM_syscommand, $F012, 0)
end;这段代码加上去按住PANEL就可以移动整个窗口,
procedure TForm1.panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
releasecapture;
Tcontrol(sender).Perform(WM_syscommand, $F012, 0)
end;这段代码加上去按住PANEL就可以移动整个窗口,
||
||
WWWW
WW
一两狂死郎之天衣有缝以后叫“老一”好象不太好叫!
谢谢,AIIRII