Expandierendes Fenster - ist es überhaupt möglich?

[holger_barntrup]

Danke dafür, ich hab es mal bei meinen Beispielen abgelegt und hoffe es wieder zu finden wenn ich es benötige.

Ich verwende für die zentrierte Ausgabe einer Form nur:

Form.Position:= poScreenCenter; Das von dir verwendete 'poDesktop....' ist bei zwei Bildschirmen eher störend.

[EWeiss]

was lange währt wird endlich gut.

gruss

[Andreas13]

Nach dem Expandieren des Fensters ist leider immer noch ein kleines Ruckeln (= vertikaler Sprung nach unten um die Höhe der Kopfzeile) vorhanden. Ich dachte, ich wüßte wie ich es behebe, aber das Fenster will noch nicht so richtig nach meinem Gusto...

[EWeiss]

Setze deine form auf eine weite von 225, und höhe 150
Verwende den unten stehenden Code

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    CheckBox1: TCheckBox;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton1: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure Explode;
    procedure Implode;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Explode;
begin

  repeat
    MoveWindow(Handle, Left - 3, Top - 2, Width + 6, Height + 4, true);
    application.ProcessMessages;
    sleep(10);
  until Top < 350

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  Implode;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Show;
  Explode;
end;

procedure TForm1.Implode;
var
  y: Integer;
begin
   y := GetSystemMetrics(SM_CYSCREEN) div 2;

   repeat
    MoveWindow(Handle, Left + 2, Top + 2, Width - 4, Height - 4, true);
    application.ProcessMessages;
    sleep(10);
  until Top > y

end;

end.

und fertig!

AnimateWindow ist unter Windows 10 einfach nur Müll. (In Verbindung mit kompletten Forms)
Ist nur ein einfaches Beispiel wie man es noch machen könnte.. geht bestimmt besser.
Falls das für dich mit AnimateWindow keine befriedigende Lösung ist.

PS:
Oder nimm den Anhang..

gruss

[Andreas13]

Zitat von EWeiss:

...Oder nimm den Anhang...

Vielen Dank, ich werde es gleich ausprobieren!
Gruß, Andreas

[Andreas13]

@EWeiss
Deine Lösung ist viel besser als AnimateWindow! Dank & Chapeau!
Gruß, Andreas

[EWeiss]

Zitat von Andreas13:

@EWeiss
Deine Lösung ist viel besser als AnimateWindow! Dank & Chapeau!
Gruß, Andreas

Du musst allerdings die y, x Position neu berechnen wenn das Window verschoben wird.
Im Beispiel sind nur Fix werte zur Demonstration.
Verschiebe mal das Fenster in die obere linke ecke dann weist du was ich meine wenn du es schließt.

Und die Größe des Fensters ist abhängig von der Top Position.. Da musst du auch noch was tun.

gruss