Implement in the declarations:
procedure WMEnterSizeMove(var Message: TMessage); message WM_ENTERSIZEMOVE;
procedure WMExitSizeMove(var Message: TMessage); message WM_EXITSIZEMOVE;
procedure TForm9.WMEnterSizeMove(var Message: TMessage);
begin
{Aqui ele entrou no laço que monitora o redimensionamento, então não Faça nada}
end;
procedure TForm9.WMExitSizeMove(var Message: TMessage);
begin
{Aqui ele terminou de redimensionar}
ShowMessage('terminou');
end;
Detail, do not implement the code and then run the shortcut to auto declare procedures, Delphi will declare without some details, has to be done manually same!
In the OS
Put the code that is in resize,
– Junior Moreira
@Junior, the code can be a showmessage, if you need the code even more soon I can post
– Tmc