如果捕获stringgrid的离开CELL事件?? 我想在stringgrid中离开单元格时操作一些事情包括从一格移到另一格或者焦点从STRINGGRID移到其他组件从STRINGGRID移到其他组件用EXIT就可以那么从一格移到另一格呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 stringgrid没有这样的事件,你自己写一个过程截获stringgrid.onenter事件:public procedure appmsg(var msg:tagmsg;var handled :boolean); procedure myprocedure (sender:object);end;var form1:tform1;implementationprocedure tform1.formcreate(sender:object);begin application.onmessage:=appmsg;end;procedure tform1.appmsg(var msg:tagmsg;var handled :boolean);begin stringgrid1.onenter:=myprocedure;end;procedure tform1.myprocedure;begin..............end; 使用OnSetEditText事件就行了。如procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);begin if (ACol = 1) and (ARow =1) then ShowMessage(Value);end;—————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。————————————————————————————————— delphi中关于treeview的使用 一个复杂的sql语句: 今天晚上一直在线等!!!!!!!!!!!!!! 一页打印多付位图 怎么做啊?? 如何获得一个文件的修改日期? 如何根据字符串来获取变量值?? 如何实现浏览器的网址拖动功能? 快来急救???? shelllistview控件的root属性如何指定远端服务器? 大虾,请进,送分 请问各位怎样用Image控件将SQL Server数据库中image类型的图片读出来? 关于execl的小问题
public
procedure appmsg(var msg:tagmsg;var handled :boolean);
procedure myprocedure (sender:object);
end;
var
form1:tform1;
implementationprocedure tform1.formcreate(sender:object);
begin
application.onmessage:=appmsg;
end;
procedure tform1.appmsg(var msg:tagmsg;var handled :boolean);
begin
stringgrid1.onenter:=myprocedure;
end;
procedure tform1.myprocedure;
begin
.......
.......
end;
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
if (ACol = 1) and (ARow =1) then ShowMessage(Value);
end;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————