Form vor Close verkleinern

Beppo

Hallo,

habe den Code aus dem Forum und etwas angepaßt.

FormVerkleinern(Screen->Height);

TFormTabelle::FormVerkleinern(int e)
{
//
int FormVerkleinernWert = 8;

    int p=(Height<e)*2-1;
    while((p>0 && Height<e) || (p<0 && Height>e))
    {
    Height  -= (FormVerkleinernWert * 2);
    Width -= (FormVerkleinernWert * 2);
    Left += FormVerkleinernWert;
    Top += FormVerkleinernWert;
    Panel1->Left -= FormVerkleinernWert;
    Panel1->Top -= FormVerkleinernWert;
      if (Height <= 6)
        {
        break;
        }
    Application->ProcessMessages();
    Sleep(1);
    }
    Close();
return 0;
}
//-------------------------------------------------------------

Code funktionieren prima. Habe leider ein optisches Problem. Mein Projekt ist eine MDI-Anwendung. Wenn 4 und mehr Child Formen offen sind, funktioniert das verkleinern/schliessen (optisch gesehen) der Form einwandfrei. Ist nur eine Child-Form geöffnet, ruckelt der Ablauf. Woran kann dieses liegen ?

Gruß Siegfried