[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