Topic: Controllist of MDI child form not set after Form.Show
V6.2
When I call this procedure after Form.Show it doesn't find all controls. Also the control names (set by script) are not present.
After reopen the form all is fine. And yes, the procedure is called after Form.Show ;-)
I know there is some work to do on MDI Forms...
By the way:
The OnMouseMove event of TdbStringGrid can't be set by code.
procedure forms_SetOnMouseMoveOnAllControls(wctrl: TWinControl);
var
i: Integer;
begin
for i := 0 to wctrl.ControlCount - 1 do
begin
if (wctrl.Controls[i] is TWinControl) and not (wctrl.Controls[i] is TdbStringGridEx) then
begin
try
wctrl.Controls[i].OnMouseMove := @forms_OnMouseMove;
except
end;
if TWinControl(wctrl.Controls[i]).ControlCount > 0 then
forms_SetOnMouseMoveOnAllControls(TWinControl(wctrl.Controls[i]));
end
end;
end;