zmiana rozdzielczości

można jakoś uniknąć bałaganu, który powstaje przy zmianie rozdzielczości?
align formy mam na client
zmieniam rozdzielczość za pomocą:

procedure Resolution(x,y:integer);
var Mode:TDeviceMode;
begin
  with Mode do
  begin
   dmSize:=SizeOf(Mode);
   dmBitsPerPel:=16;
   dmPelsWidth:=x;
   dmPelsHeight:=y;
   dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
  end;
  if ChangeDisplaySettings(Mode,0)<>DISP_CHANGE_SUCCESSFUL then
        ShowMessage('Nie udało się zmienić rozdzielczości ekranu!!!');
end;

a po powrocie do dawnej rozdzielczości i zamknięciu formy, na pulpicie dzieją sie kosmosy... winamp przesunięty, gadulec w innej części pulpitu, okna poprzesuwane... na szczęście ikony zostają na miejscu... ale jak uniknąć tamtego rozpieprzu?

Wylistować wszystkie widzialne okienka i zapamietac ich położenie. Po przywroceniu rozdzielczości poprzywracac okna.

Wylistować wszystkie widzialne okienka i zapamietac ich położenie. Po przywroceniu rozdzielczości poprzywracac okna.

a jesli nie wiesz jak to poczytaj o komunikatach....

Wylistować wszystkie widzialne okienka i zapamietac ich położenie. Po przywroceniu rozdzielczości poprzywracac okna.

a jesli nie wiesz jak to poczytaj o komunikatach....

wystarczy przejrzec forum (bylo iwele razy o oknach, itp) a takze przejrzec FAQ