OnMaximize + Fenster eigene Größe geben

[bwolf]

Hi all,

Wenn ein Fenster maximiert wird, will ich nicht das es den kompletten Bildschirm einnimmt, sonder das es eine von mir zugewiesen Größe annimmt.
Das funktioniert auch prima:

Delphi-Quellcode:

  if (msg.cmdtype and $FFF0) = SC_MAXIMIZE then
  begin
     // hide
     WindowState := wsMaximized;
     left := 0;
     Top := frm_main.height;
     Height := screen.Height-frm_main.height;
     width := screen.width;
    // show
  end
  else
    inherited;

Das WindowState := wsMaximized setze ich vorher, damit als Icon auch das "maximiert"-Sysmbol angezeigt wird.

Das Problem was ich jetzt noch habe:
Wenn ich das Fenster maximiere, wird es erst "richtig" maximiert, bevor es auf meine eigene größe gebracht wird. Und das sieht halt nicht besonders schön aus.
Ich habe versucht, das Fenster erst zu verstecken, dann zu maximieren, dann auf meine eigene Größe zubringen und es dann wieder anzuzeigen - aber das klappt nicht, versteckte Fenster können wohl nicht maximiert (oder überhaupt in Ihrer Größe) geändert werden.

Hat jemand einen Tip für mich?
Danke schonmal,
gruß ben

[SirThornberry]

hast du mal geschaut ob wm_size ausgelöst wird? eventuell dort noch korrigeren.

[bwolf]

ausgelöst wird's, hab ich eben probiert - aber wie ich das da korrigieren soll...

[DelphiKlaus]

Hallo,

es gibt eine Windows-Message wm_GetMinMaxInfo oder so ähnlich. In der Antwort auf diese Message kannst Du angeben, wie gross das Fenster beim Maximieren und beim Aufziehen werden darf.

Klaus

[bwolf]

Danke, das werd ich mir mal ansehen!

[Hawkeye219]

Hallo ben,

du könntest auch prüfen, ob eine Einstellung von TForm.Constraints mit deiner Positionierung zusammenspielt.

Gruß Hawkeye

[bwolf]

So,

hab es jetzt mit wm_GetMinMaxInfo gelößt - jetzt siehts wunderbar aus
Danke für eure zahlreichen Antworten!