On Sun, Dec 23, 2018 at 6:57 PM AlexeyT via lazarus
<lazarus@lists.lazarus-ide.org> wrote:
>
> %subj - they are not public so I must use now dirty code:
>
> procedure DoControlLock(Ctl: TWinControl);
> begin
> {$ifdef fpc}
> if Application.MainForm<>nil then
> TFormHack(Application.MainForm).BeginFormUpdate;
> {$else}
> Ctl.Perform(WM_SetRedraw, 0, 0);
> {$endif}
> end;
Your code is somehow flawed.
TCustomForm.BeginFormUpdate should not be needed in application code.
Juha
--
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
