请问各位大哥,窗体的什么事件触发窗体的移动位置变化
也就是窗体的Form.left变了,即产生相应事件
我试过了Form的所有事件,可都不能产生相应的效果
请问各位大哥有没办法帮忙解决啊?
或者写个函数就可以实现还是???
也就是窗体的Form.left变了,即产生相应事件
我试过了Form的所有事件,可都不能产生相应的效果
请问各位大哥有没办法帮忙解决啊?
或者写个函数就可以实现还是???
解决方案 »
- 我的DCOM组件明明注册了却在COM组件中找不到,但是用本地可以正常激活。
- 报错‘列名111无效’
- memorystream为什么是空的呢?
- 不能正确连接到SQLserver7.0数据库
- 请问,在使用PUIPACK 编译时总出现要我去它网站注册的提示,怎么样才能去掉呢?
- 查询日期期间的sql语句这样写错在哪儿??在线等待~急~~~~~~~~
- delphi中如何调用powerpoint文件
- 关于打印票据连续打印的问题
- delphi 7 复制窗体后编译报错的原因和解决方案
- +++++需求+++++++
- 我用一个表存放当前的最大单据编号,怎样做得一个人读取该记录时不让别人读取啊,否则就会编号重复了。
- 请教一下,打印和显示的不一样,俺急死了~~~~
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
procedure WMMOVE(var msg:TMessage); message WM_MOVE;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMMOVE(var msg: TMessage);
begin
Edit1.Text:=('x:'+inttostr(msg.LParamLo)+'y:'+inttostr(msg.LParamHi));
end;end.
protected
procedure WndProc(var Message: TMessage); override;
实现代码:
procedure TForm1.WndProc(var Message: TMessage);
begin
if (Message.Msg = WM_MOVE) then
ShowMessage('Window is moved!');
inherited;
end;