在程序中怎样阻止TreeView1.OnChange事件的发生? 你在onchange里不加代码,就相当于屏蔽了它了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在哪个事件里面加EXIT;呵呵,也行 这样可以阻止OnChange事件发生,但前提条件是TreeView的Parent必须是Form,要uses CommCtrl;type TForm1 = class(TForm) private procedure WMNOTIFY(var Msg: TMessage); message WM_NOTIFY; { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMNOTIFY(var Msg: TMessage);var nmh: PNMHDR;begin nmh := Pointer(Msg.LParam); if nmh^.code = TVN_SELCHANGED then Msg.Result := 1 else Inherited;end;如果TreeView是放在别的控件上而非Form上,也可以阻止OnChange事件的发生,只是稍稍麻烦的点,先要写一个TWndMethod类型的procedure,然后用SetWindowLong来替换掉TreeView的Parent的WndProc。在你自已写的procedure中判断WM_NOTIFY是否为TreeView的TVN_SELCHANGED,是则截掉。 请问如何比较两个时间的先后 在数据库中的连接字符串都是数据库文件的绝对路径,怎么用相对路径? 方法的重写问题 OleContainer操作word的问题 高分求使用 IdPOP3Server 建立pop3 服务器的例子, 求救:定位记录的问题? 请教如何日期时间变量(TDatetime)进行加、减操作,以年为单位。 想问一下大家平时开发时采取怎样的命名规范? 我学习学习,谢谢! commandtext太难用了!!!!!!!!!!!!!!有没其它做法不用commandtext的? image字段 打开数据集发生错误,急急急!!! 大富翁怎么进不去了?
要uses CommCtrl;
type
TForm1 = class(TForm)
private
procedure WMNOTIFY(var Msg: TMessage); message WM_NOTIFY;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.WMNOTIFY(var Msg: TMessage);
var
nmh: PNMHDR;
begin
nmh := Pointer(Msg.LParam);
if nmh^.code = TVN_SELCHANGED then
Msg.Result := 1
else
Inherited;
end;如果TreeView是放在别的控件上而非Form上,也可以阻止OnChange事件的发生,
只是稍稍麻烦的点,先要写一个TWndMethod类型的procedure,然后用
SetWindowLong来替换掉TreeView的Parent的WndProc。
在你自已写的procedure中判断WM_NOTIFY是否为TreeView的TVN_SELCHANGED,
是则截掉。