如题
解决方案 »
- 请问该如何卸载窗体中动态加载的控件?
- 在一个程序得主页面中,有两个webbrowser控件,如何能点击左边网页中得链接后在右边得浏览器中出现链接页面
- 使用换肤控件bsskinspeedbutton的问题
- 如何将不同语言编写的程序合并在一起啊?
- 代码出错,帮忙看看
- 请问哪里有Delphi的开发工具下载?
- 一个简单的问题,控件的长,宽,高都什么为单位(缇,像素,....)
- Richedit的问题!谁会呀!!!不是很难的!!
- 请问哪儿有报表控件和自动生成帮助的控件下载,谢谢!
- 请问各位大虾,关于这种exception 的该如何处理?非常感激!
- "无法定位和序输入点***于动态链接库***.DLL上"是怎么回事?
- 如何在下拉菜单中加入图片,如打开"文件"菜单,移到"打开"功能上时,背景是一块图片,移开时又是别一块图片,请问是怎样实现的呢?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
const
SC_DragMove = $F012;
begin
if Msg.message = WM_MOUSEMOVE then
begin
ReleaseCapture;
ActiveControl.Perform(WM_SysCommand, SC_DRAGMOVE, 0);
end
else if Msg.message = WM_LBUTTONDOWN then
begin
ActiveControl:=nil;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
end;end.