如何获得 GRID 或 GRIDEH 的 表格内 或 某格的 onchange 事件..如 EDIT 的一样...(30分)

  • 主题发起人 主题发起人 zg2000
  • 开始时间 开始时间
Z

zg2000

Unregistered / Unconfirmed
GUEST, unregistred user!
如何获得 GRID 或 GRIDEH 的 表格内 或 某格的 onchange 事件..如 EDIT 的一样...

如 edit 的 onchange 事件..
if Edit1.text='' then edit1.text:='1';

可否 实现 : if Grideh1(x,y)='' then Grideh1(x,y):='1';
 
if query1.fieldbyname('ZT').asstring>='1' THEN
BEGIN
//。。。。
END
ELSE
BEGIN
application.MessageBox('输入内容非法,请重新输入!','提示',0);
abort;
END;
 
如果是数据库控件,可以使用数据集的中字段的Onchange事件获取数据字段的值;如果是简单的网格控件(从TCustomGrid中继承的),可以在OnSetEditText事件中处理
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if value = '1' then
stringgrid1.Cells[ACol, ARow] := '2';
end;

如果哪位高手能把它的TInplaceEdit搞出来,就更好控制了。
 
没解决...end
 
多人接受答案了。
 

Similar threads

后退
顶部