用消息截取吗?
怎么实现?
怎么实现?
解决方案 »
- 请问在DELPHI中如何知道哪些数据被修改过?并且只保存当前被修改过的记录?
- query添加字段
- 我分多的用不完了,发帖玩玩
- 如何用程序判断网卡为静态IP或是动态IP
- 在IntraWeb技术中I我创建了3个网页,第一个为form1,第二个为form2,第三个为form3,在运行时程序默认为第一个,我想让第二个网也成为首先
- 请问一下最小化、最大化、关闭按钮用是的什么字符??
- 怎么管理sql server上的用户名和密码
- hookapi WriteProcessMemory写入的字符串比原来的长度长怎么办??? 大多数操作系统正常。win8.1 x64不正常 出错 move b
- 使用socketconnection发生的错误~请指教!
- WEBSERVICES 请看这段代码,为何不能使用ADO?
- 哪里有下载delphi6企业版?
- 请帮手,数据连接的简单问题,在线等……
楼上的正解,呵呵,禁止了就不会了哦
如果觉得字体颜色变成灰色不好看就,用下面的办法。先放一个panle。把他的enable:=false;然后在panle上面放button就可以了
我是要让按钮不凹下去,不去触发click事件
要把click事件消息截取,谁会?救我
Shift: TShiftState; X, Y: Integer);
begin
button1.OnClick:=nil;
SendMessage(button1.handle,WM_LBUTTONup,-1,1);
end;
TYourButton=class(tbutton)
procedure onYourMouseDownEvent(var msg:twmlbuttondown);message wm_lbuttondown;
end;procedure onYourMouseDownEvent(var msg:twmlbuttondown);
begin
//不做任何事情
end;
begin
//不做任何事情
end;
procedure MyProc(var Message: TMessage);
beginend;
procedure MyProc(var Mes: TMessage);
begin
//if message.Msg=wm_lbuttondown then exit;
button1.DefaultHandler(mes);
//button1.OnClick:=nil;
end;什么也不做可不行,那样的话这个按钮根本就不会重画
procedure MyProc(var Mes: TMessage);
begin
//仅仅对wm_lbuttondown不响应
if message.Msg=wm_lbuttondown then exit;
button1.DefaultHandler(mes);
end;