如何在StringGrid中加上OnChange事件? Edit等控件都有OnChange事件,我想在StringGrid中也加上,好判断用户是否修改了内容,有什么简便的方法吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 最佳方案:自己从StringGrid继承过来一个新StringGrid控件,在其中声明一个OnChange事件。 OnKeyUp, OnKeyPress之类也可以达到 OnChange的目的 能不能详细一点啊,最好在代码改变内容时也触发OnChange事件。 这个问题有点意思感觉就想骑驴找驴的感觉~~~~~~~~~~~~~~~~~~~~~~这是TStringList的实现~~~~~~~~~~~~~~~~~~~~~~property OnChange: TNotifyEvent read FOnChange write FOnChange;procedure TStringList.Changed;begin if (FUpdateCount = 0) and Assigned(FOnChange) then FOnChange(Self);end;procedure TStringList.Clear;begin if FCount <> 0 then begin Changing; Finalize(FList^[0], FCount); FCount := 0; SetCapacity(0); Changed; end;end;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~是不是这种味道? 不明白楼上的意思。你说的和老者说的是一样的吧?那什么时候该调用Changed? 实现的细节并不重要,关键是方法。 楼主如果对StringGrid加OnChange事件,是在编集状态击发,可用OnGetEditText試試。如果真加OnChange事件、并不好控制、因为各个Cell間的移動、可否修正等属性都是変数。 动态生成一个TWebBrowser后如何让它式作? 谁用delphi+mysql开发过软件? 散分。今天高兴。。。。。。。。。 救命!关于ADODATASET中的commandtext长度问题 50分 TreeView组件如何实现同一级Node的位置可以随意的拖动。 delphi 请教下高手 如何改变ActiveX的显示大小,给100分 hualing大侠???? 请问怎样在Dephi中把Tabcontrol中的东西如:GroupBox移到Pagecontrol中来。 怎么在panel上打开word 文档 初学者寻求帮助,关于字符串转换的方面 关于sendmessage的用法
感觉就想骑驴找驴的感觉~~~~~~~~~~~~~~~~~~~~~~
这是TStringList的实现
~~~~~~~~~~~~~~~~~~~~~~
property OnChange: TNotifyEvent read FOnChange write FOnChange;procedure TStringList.Changed;
begin
if (FUpdateCount = 0) and Assigned(FOnChange) then
FOnChange(Self);
end;procedure TStringList.Clear;
begin
if FCount <> 0 then
begin
Changing;
Finalize(FList^[0], FCount);
FCount := 0;
SetCapacity(0);
Changed;
end;
end;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
是不是这种味道?
可用OnGetEditText試試。
如果真加OnChange事件、并不好控制、因为各个Cell間的移動、
可否修正等属性都是変数。