Form ohne Animation maximieren

[Marphy]

Hallo DBR,

Zitat von DBR:

bei normalen Fenstern mache ich das so:

Delphi-Quellcode:

[...]
procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_MAXIMIZE)
    then begin
    hide;
    windowstate := wsMaximized;
    show;
  end else inherited;
end;

Vielleicht hilfts!

Danke für den Tipp! Dieser funktioniert ansich ganz toll, aber für mein Problem ist er nicht die Lösung.

1) Das VCL-Hide() weigert sich, MDI-Childs zu verstecken. Ist kein Problem, einfach in ShowWindow(Handle, SW_HIDE) umwandeln, dann funktiert das.

2)

Zitat von Marphy:

Die Animation beim Klick auf den Maximieren-Button in der Titelleiste ist schon okay, [...]

Tja, und beim Maximieren per Code (z.B. WindowState = wsMaximized oder per ShowWindow) wird keine WM_SYSCOMMAND-Botschaft gesendet. Und im anderen Fall, beim Maximieren per Titelleiste, will ich den Effekt ja.
Ersteres kann durch Maximieren über SendMessage(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0) umgangen werden, der zweite Punkt ist z.B. über lParam zu lösen (bei SendMessage diesen einfach z.B. auf 1 setzen und in WMSysCommand dann abfragen).

3) Aber:

Zitat von Marphy:

[...] ich will das Fenster ja nur beim Anzeigen (z.b. OnShow-Event) "unanimiert" maximieren.

Nun, und selbst wenn man obigen Code einsetzt, beim Maximieren per Code im OnShow()-Event des MDI-Childs lässt sich die Animation leider nicht unterdrücken.

So, und an diesem letzten Punkt bin ich gescheitert...


Vielleicht noch ein kleiner (vielleicht doch nicht ganz unwichtiger) Nachtrag:
Worum es mir eigentlich geht, d.h. was ich tun will, ist folgendes: Meine Anwendung speichert beim Beenden, ob das aktive MDI-Child maximiert ist oder nicht. Beim nächsten Start der Anwendung und Öffnen eines MDI-Childs soll dieses wieder direkt im gespeicherten Zustand erscheinen (d.h. maximiert oder normal, ohne Animation).


Ich hoffe auf weitere Antworten! Danke schon im Voraus!

Grüße, Marco

[Igotcha]

Dafür hätte ich auch gerne eine Lösung, denn meine Anwendung benutzt MDI-Childs in BPLs (komplettes Anwendungsmodul in einer BPL). Wenn ich jetzt vom Hauptprogramm etwas öffne, habe ich auch diese Maximieren-Animation die zwar technisch nicht stört, jedoch nicht chic für das Auge ist.

Gruß Igotcha

[Marphy]

Hey, keine Ideen mehr?

Bitte um Hilfe
Danke, Marco

[Marphy]

*push*

[Flocke]

Wenn du schon vor der eigentlichen Erstellung des Fensters weißt, ob es maximiert sein soll, dann könntest du noch versuchen, CreateParams zu überschreiben:

Delphi-Quellcode:

// im interface-Teil innerhalb der TFormN-Deklaration
// ...
protected
  procedure CreateParams(var Params: TCreateParams); override;
// ...

// im implementation-Teil
procedure TFormN.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if Maximiert then
    Params.Style := Params.Style or WS_MAXIMIZE;
end;

[Marphy]

Hallo zusammen,

Zitat von Flocke:

Wenn du schon vor der eigentlichen Erstellung des Fensters weißt, ob es maximiert sein soll, dann könntest du noch versuchen, CreateParams zu überschreiben:

Danke für den Vorschlag Volker, aber die Animation bleibt, was man auch versucht....

So, ich habe jatzt ein kleines Projekt geschrieben, welches den Sachverhalt verdeutlicht. Spielt einfach mal rum, Event-Handler & Co. sind alle (?) schon reingeschrieben, ihr könnt also direkt loslegen.

Falls ihr einen Lösungsweg gefunden habt, bitte posten!

Ich freue mich auf euer Feedback!

Gruß und Dank,
Marco

[mschaefer]

Hallo Marco,

Dir scheinen die kniffligen Fragen ja nicht auszugehen und da ich heute Nacht Wartungsdienst habe bin ich nun hier gelandet. Auch wenn es überhaupt nicht so faszinierenden Codes bedarf, könntest Du nicht einfach ein Panel im MDI Formular über den ganzen Clientbereich legen und nachdem die Clientfenster createt sind mit visible auf false verschwinden lassen. Damit würde der Fensteraufbau quasi im Untergrund passieren. Panel visible Position setzen und dann application.Processmessages.

Ok, hat nicht die Faszination einer eigenen Formularcomponente...aber vielleicht...

Grüße // Martin

[Luckie]

Also ich sehe da keine Animation. Kann es an den grafischen Einstellungen deines Betriebssystems oder an der Theme liegen, dass du bei dir eine Animation hast?

[SirThornberry]

@Luckie: Die Animation sieht man nur wenn der Schnickschnack im Betriebssystem aktiviert ist.

[Marphy]

Hallo zusammen,

Zitat von mschaefer:

Dir scheinen die kniffligen Fragen ja nicht auszugehen

Zitat von mschaefer:

Auch wenn es überhaupt nicht so faszinierenden Codes bedarf, könntest Du nicht einfach ein Panel im MDI Formular über den ganzen Clientbereich legen und nachdem die Clientfenster createt sind mit visible auf false verschwinden lassen. Damit würde der Fensteraufbau quasi im Untergrund passieren. Panel visible Position setzen und dann application.Processmessages.

Danke für den Vorschlag Martin, aber dies würde doch nichts anderes bezwecken als z.B. LockWindowUpdate(frmMain.Handle) - die Animation ist zwar nicht sichtbar, aber die Zeit für den Effekt wird trotzdem in Anspruch genommen.

Zitat von mschaefer:

Ok, hat nicht die Faszination einer eigenen Formularcomponente...aber vielleicht...

Ich glaube, dass ein Panel überhaupt nichts bezwecken würde, da die Animation nicht auf dem Main-Form-DC gezeichnet wird. Und wenn doch, kann dasselbe viel einfacher auch per oben genanntem Code erreicht werden.

Zitat von Luckie:

Also ich sehe da keine Animation. Kann es an den grafischen Einstellungen deines Betriebssystems oder an der Theme liegen, dass du bei dir eine Animation hast?

Zitat von SirThornberry:

@Luckie: Die Animation sieht man nur wenn der Schnickschnack im Betriebssystem aktiviert ist.

Wenn Jelly diesen "Schnickschnack" in seinem BS nicht abgestellt hat, könnte der Delphi 4-VCL Code die Lösung des Problems sein... Falls also jemand noch irgendwo die Forms.pas o.ä. als D4-Version rauskramen kann, wäre ich diesem sehr dankbar!

Zitat von Jelly:

Ulkig... Bei Delphi 4 suchte ich mal nach ne Funktion um das Maximieren zu animieren.

Gruß, Marphy alias Marco