Jak wykonać jakąś procedurę po minmalizowani formy. W zakładnace Events nic takiego nie znalazłem
0
0
private
procedure wmSize( var msg: TWMSize ); message WM_SIZE;
procedure TForm2.wmSize(var msg: TWMSize);
begin
inherited;
case msg.SizeType of
SIZE_MAXHIDE: memo1.lines.add('SIZE_MAXHIDE');
SIZE_MINIMIZED: memo1.lines.add('SIZE_MINIMIZED');
SIZE_MAXSHOW: memo1.lines.add('SIZE_MAXSHOW');
SIZE_MAXIMIZED: memo1.lines.add('SIZE_MAXIMIZED');
SIZE_RESTORED: memo1.lines.add('SIZE_RESTORED');
else
memo1.lines.add('Unknown size type');
end;
end;