[Lazarus] BeginFormUpdate/EndFormUpdate should be public?

Juha Manninen juha.manninen62 at gmail.com
Sun Dec 23 23:08:53 CET 2018


On Sun, Dec 23, 2018 at 6:57 PM AlexeyT via lazarus
<lazarus at 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


More information about the Lazarus mailing list