das Öffnen und Schliessen eines Fensters will ich als Aufrollen bzw. Zurollen darstellen. Meine bisherig Umsetzung funktioniert wunderbar, allerdings war da das Fenster noch "leer" (ohne Elemente). Dann habe ich ein TDBGrid eingefügt und es an allen Seiten mit der Form verankert. Jetzt funktioniert nur noch das Aufrollen, danach friert allerdings das Programm ein.
Hat sich jemand damit schon mal befasst?

Thx, Maffe.

//Aufrollen
((TDockWnd*)ThrParam)->Top = ((TDockWnd*)ThrParam)->Base_Rect.Top;
((TDockWnd*)ThrParam)->Left = ((TDockWnd*)ThrParam)->Base_Rect.Left;
((TDockWnd*)ThrParam)->Height = ((TDockWnd*)ThrParam)->Base_Rect.Height;
for (Count = SCROLL_START; Count < ((TDockWnd*)ThrParam)->Base_Rect.Width;
    Count += SCROLL_STEP)
{
    (TDockWnd*)ThrParam)->Width = Count;
    Diff = ((TDockWnd*)ThrParam)->Base_Rect.Width - Count;
    if (Diff < SCROLL_STEP)
        ((TDockWnd*)ThrParam)->Width += Diff;

    if (((TDockWnd*)ThrParam)->Visible == false)
        ((TDockWnd*)ThrParam)->Show();

    ((TDockWnd*)ThrParam)->Refresh();
}
//-----------------------------------------------------------------------------
//Zurollen
for (Count = ((TDockWnd*)ThrParam)->Base_Rect.Width; Count > SCROLL_START; 
    Count -= SCROLL_STEP)
{
    ((TDockWnd*)ThrParam)->Width = Count;
    Diff = Count - SCROLL_START;
    if (Diff < SCROLL_STEP)
        ((TDockWnd*)ThrParam)->Width -= Diff;

    ((TDockWnd*)ThrParam)->Refresh();
}
((TDockWnd*)ThrParam)->Hide();

// Funktion verbessert und getestet!
void __fastcall Rollen(int e)
{
    int p=(Top<e)*2-1;
    while((p>0 && Top<e) || (p<0 && Top>e))
    {
        Top+=p;
        Application->ProcessMesages();
        Sleep(1);
    }
}
void __fastcall TForm1::ButtonAufrollenClick(TObject *Sender)
{
    Rollen(100);
}
void __fastcall TForm1::ButtonZurollenClick(TObject *Sender)
{
    Rollen(Screen->Height);
}

EDIT: Die Funktion Rollen muss in der Klasse "TForm1" deklariert sein... udn die Funktionen sind ungetestet, da ich hier keinen BCB zur Hand habe, bin nicht zuhause ^^

EDIT #2: Funktion getestet und verbessert!

vermeide es dutzende male ((TDockWnd)ThrParam)* zu casten (kosten haufenweise zeit). mache das lieber nur einmal.

meine persönliche meinung zum aufrollen: lass solche gimicks lieber, würde mich als endanwender eher stören als erfreuen. (wie gesagt: meine meinung)

funktioniert das mit dem dbgrid wenn du die ecken nicht verankerst?

Zu deiner Meinung mit dem Rollen:
Ich werde dem Nutzer die Möglichkeit geben, das Rollen abzuschalten. Weil ich das persönlich auch besser finde. Aber da das "offiziell" ist und "DAU"s visuelle Menschen sind, will ich es mit einbauen.

Wenn ich die Ecken nicht verankere, dann gibt er mir eine Speicherzugriffsvetzung aus.

Wenn ich die Ecken nicht verankere, dann gibt er mir eine Speicherzugriffsvetzung aus.

In welcher Codezeile?

Ich verstehe ehrlich gesagt nicht, wie dieser Code meine Form aufrollt.

Mit welchem Compiler arbeitest du? - Hast du die Funktion denn mal getestet?

EDIT: Also ich habe sie getestet, und auf die Form ein DBGrid gesetzt undalle 4 Ecken verankert... und folgendes funktioniert (Delphi 6):

procedure TForm1.FormClick(Sender: TObject);
begin
    Rollen(0);
    Rollen(Screen.Height-Height);
end;

procedure TForm1.Rollen(e:Integer);
var p:Integer;
begin
    p:=Integer(Top<e)*2-1;
    while ((p>0) and (Top<e)) or ((p<0) and (Top>e)) do
    begin
        Top:=Top+p;
        Application.ProcessMessages;
        Sleep(1);
    end;
end;

Und das habe ich in C++ umgewandelt, ist ja nicht sonderlich schwer und das rollt meine Form auf Position X,0 und danach auf X,Y (Y ist Höhe des Bildschirms minus Höhe der Form)... und das ohne sich aufzuhängen ^^

Die Speicherverletzung ist weg, warum weiss ich allerdings noch nicht genau. Aber das Programm friert wieder ein.

@Windoof:
Deine Funktion hab ich noch nicht getestet, weil mir erstmal das Verständnis gefehlt hat. Aber ich werde es noch tun.