用图片, 加一个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就可以移动整个窗口,
解决方案 »
- 在delphi7中如何调试共享服务
- 兄弟们! 怎样才能做出 仿真数字 LED 显示 的效果?急呀.....
- 祝愿天下地女性同胞们节日快乐!
- 如何查找局域网存在的MS SQLSERVER2000服务器
- 如果Image的Picture内没有图像,应该怎样判断?
- 既懂汇编(masm)又懂delphi的请近来看看!!!!!!!!!!散分!在线期待您的答案!
- 大家来测试 http://eastcode.2288.org(
- 过滤问题!在线等待!!!!!
- 请问哪位大侠知道将EXE中的procedure赋给一个dll(它封装了一个Form和很多各类控件)中的控件(如:Button)的事件?在线等待...
- 如何实现数据表的导出?
- 我已经把整个FORM用图像显示为主窗体,但是没办法实现单击某一部分实现一种功能,请帮忙!!!
- Delphi的Form show出之后
||
||
WWWW
WW
一两狂死郎之天衣有缝以后叫“老一”好象不太好叫!
谢谢,AIIRII