Fenster ausfahren

[Nathan]

Ich verwende in älteren VCL Projekten die WinAPI Funktion AnimateWindow().

Für TForm z.B.

Delphi-Quellcode:

  Form2.BringToFront;
  AnimateWindow(Form2.Handle, 250, AW_BLEND);
  Form2.Show;

In einem alten Projekt für ein TPanel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Panel1.Visible then
    ClosePanel
  else
    OpenPanel;
end;

procedure TForm1.OpenPanel;
begin
  AnimateWindow(Panel1.Handle, 250, AW_ACTIVATE or AW_VER_NEGATIVE);
  Panel1.Visible := True;
end;

procedure TForm1.ClosePanel;
begin
  AnimateWindow(Panel1.Handle, 250, AW_ACTIVATE or AW_VER_NEGATIVE);
  Panel1.Visible := False;
end;

Ist nur Pseudocode aus einer einfach erstellten VCL Anwendung mit 2 TForms. Vielleicht hilf es dir.

[EWeiss]

Zitat:

Ist nur Pseudocode aus einer einfach erstellten VCL Anwendung mit 2 TForms. Vielleicht hilf es dir.

Danke nein das Hilft nicht.

Ich muss das Komplette Window scrollen nicht in der Höhe pixelweise verändern.

gruss

[Glados]

Wenn ich das richtig verstehe meinst du nicht Fenster sondern einen Teil (Panel?) im Fenster.

[EWeiss]

Zitat:

Wenn ich das richtig verstehe meinst du nicht Fenster sondern einen Teil (Panel?) im Fenster.

Nein falsch verstanden ich meine Fenster und habe es auch geschrieben

gruss

[EWeiss]

Woran kann es liegen das sich mein Fenster nicht in den Negativen "Top" Bereich verschieben lässt?
Das müsste doch eigentlich gehen.

Ein 0 -y funktioniert nicht das Child Window bleibt immer bei 0 stehen.
tssss...

gruss

[himitsu]

Zitat von EWeiss:

Woran kann es liegen das sich mein Fenster nicht in den Negativen "Top" Bereich verschieben lässt?

Windows?

* [Win+E] Editor [Enter] -> Starte ein Notepad
* Strg+Leertaste -> Fenstermenü
* [V] -> Verschieben
* Pfeil Hoch -> nach oben verschieben
* [Enter] -> Verschieben beenden

[EWeiss]

Ja du hast recht..

gruss