dbgrid 如何判断单元格内容被改变 dbgrid-columns[1]-picklist 设置picklist 语文 数学 英语dbgrid显示序号 科目 1 语文假如 科目 从 "语文" 变为 "英语" 如何 判断他改变, 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 也就是判断dbgrid 中某个单元格内容是否变化,中不失焦点的时候 ADOQuery1替换为你Grid的数据集unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, TeEngine, Series, ExtCtrls, TeeProcs, Chart;type TForm1 = class(TForm) ADOQuery1: TADOQuery; Chart1: TChart; Series1: TLineSeries; ADOQuery1ada: TStringField; procedure ADOQuery1AfterOpen(DataSet: TDataSet); private { Private declarations } procedure MySetText(Sender: TField; const Text: String); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);var i:integer;begin for i :=0 to DataSet.FieldCount - 1 do begin DataSet.Fields[i].OnSetText := MySetText; end;end;procedure TForm1.MySetText(Sender: TField; const Text: String);begin //当数据改变时就会触发这里的代码end;end. 那就難了, DBGRID的每個列應該是ONEXIT來觸發 datasource 的源的數據集字段的 onchange 影響onsettext,onGettext 的。 关于动态创建Frame问题,释放的报错 求Delphi公交换乘查询的算法 各位高手,请教一个问题。十万火急,在线等 有沒有fast report 報表的《中文使用指南》可以給我一份的 如何用Memo控件模拟telnet的窗口,并获取键盘输入的数据? 得到值的问题 关于打印一张图片 我想知道x!怎樣做?如4!=4*3*2*1.怎樣用程序實現?我的代碼出錯誤,看看. 怎么样改变我们的滚动条的颜色呢 ******oracle新手请教用户名和密码是那些,送分****** ASCCI 怎么转 十六进制啊 udp接收到的数据包不完整
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, TeEngine, Series, ExtCtrls, TeeProcs, Chart;type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
Chart1: TChart;
Series1: TLineSeries;
ADOQuery1ada: TStringField;
procedure ADOQuery1AfterOpen(DataSet: TDataSet);
private
{ Private declarations }
procedure MySetText(Sender: TField; const Text: String);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i:integer;
begin
for i :=0 to DataSet.FieldCount - 1 do
begin
DataSet.Fields[i].OnSetText := MySetText;
end;
end;procedure TForm1.MySetText(Sender: TField; const Text: String);
begin
//当数据改变时就会触发这里的代码
end;end.