这是我的代码:
if DRelatiebeheer.ContactpersoonID.Post = Action then
KJSMDBGrid1.RefreshData;
KJPanel4.Visible := true;
我的问题是如何在帖子成功结束时将面板设置为可见。
我不知道如何解决它,尝试了很多方法,但没有找到解决问题的方法。
我认为代码不起作用,因为我把它放在OnGetCellParams
事件中不可见。
而且我只想设置发布信息时可见的最后一个面板
procedure TFRelatiebeheer.KJSMDBGrid1GetCellParams(Sender: TObject);
begin
if DRelatiebeheer.ACCID.AsInteger <= 0 then
KJPanel3.Visible := false;
KJPanel4.Visible := false;
else
begin
KJPanel3.Visible := true;
end;
这是我的 OnGetCellParams 事件,这是另一个
procedure TFRelatiebeheer.SaveCancel(Sender: TObject);
begin
if (DRelatiebeheer.CID.State in [dsEdit, dsInsert]) then
DRelatiebeheer.CID.Post;
DRelatiebeheer.AID.Post;
if DRelatiebeheer.CID.Post = Action then
KJSMDBGrid1.RefreshData;
KJPanel4.Visible := true;
end;