5,388
社区成员
发帖
与我相关
我的任务
分享
published
{ Published declarations }
procedure lrEditEx(const Value:Boolean);
我写在这里
然后再调用的地方
AMethod.Code:=self.MethodAddress('lrEditEx');
AMethod.Data:=self;
TMethod(lrEditProc):=AMethod;
procedure X.lrEditEx(const Value: Boolean);
begin
FlrEdit := Value;
if not FlrEdit then
begin
lrEditCell(Edit1.Text,EditX,EditY);
Edit1.Text:='';
Edit1.Visible:=False;
Exit;
end
else
begin
SelectCell(Col,Row);
end;
end;