On Saturday 20 October 2018 17:54:36 mohamed hamza wrote:
> But I am in EditPageNform (baseEditPageForm) ?
> Do I have to include baseeditForm in uses of baseEditPageForm?
>
Yes, not necessarily in baseeditpageform but in the form where the code
"
tbaseeditfo(window.owner).dataso.dataset:=
tdb*grid(sender).datalink.datasource.dataset;
"
is located.
Or use the method with tbaseeditfo.onfocusedwidgetchanged, probably the
simplest. Will TDBgroup be focused? If so use
"
procedure tbaseeditfo.focusedwidgetchangedev(const oldwidget: twidget;
const newwidget: twidget);
var
intf1: idbeditfieldlink;
intf2: igriddatalink;
daso1: tdatasource;
begin
if (newwidget <> nil) then begin
if newwidget.getinterface(idbeditfieldlink,intf1) then begin
dataso.dataset:= intf1.getfieldlink().dataset;
end
else begin
if newwidget.getinterface(igriddatalink,intf2) then begin
dataso.dataset:= intf2.getdatalink().dataset;
end
else begin
if newwidget is tdbgroupbox then begin
daso1:= tdbgroupbox(newwidget).datasource;
if daso1 <> nil then begin
dataso.dataset:= daso1.dataset;
end;
end;
end;
end;
end;
end;
"
(not tested!).
Martin
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
