Maximierung eines Programms nur auf ein Teil beschränken

[xavior]

@Delphi_Fanatic: Ja hab ich, aber die Prozedur wird erst aufgerufen nachdem das Fenster von mir einmal verößert wurde und wenn ich es danach versuche wieder zu verkleinern!

[SirThornberry]

Du könntest die "Align"-Property's einfach setzen so das sich automatich beim vergrößern/verkleinern alles anpasst. Alternativ (wie schon geschrieben wurde) geht auch das OnResize-Event des Formulars

[xavior]

Hab ich schon versucht: s.o.

[neolithos]

WM_SYSCOMMAND ist eine Windows - Nachricht! In der Mitgeteilt wird das das Maximieren eingeleitet werden soll.
Man kann in ihr aber nicht den Maximierungsvorgang steuern, was du ja willst! Um dies zu bewerkstelligen müssen andere Nachrichten abgefangen werden. Dies wurde von den Borlander schon vorbereitet. Steuern kann man also das Verhalten eines Fenster, indem man die Contraints-Werte setzt. Wie ich das die ganze Zeit schon versuche begreiflich zu machen.

Ist also noch keine Suche erfolgt, die Liste unten also ausgeblendet setzt man

Delphi-Quellcode:

Constraints.MinHeight := Height;

. Ist die Liste angezeigt dann setzt man

Delphi-Quellcode:

Constraints.MinHeight := 0;

. Und Fertig ist dieser Effekt. Mehr braucht man eigentlich nicht.

[neolithos]

Zitat:

Zitat von SirThornberry

Du könntest die "Align"-Property's einfach setzen so das sich automatich beim vergrößern/verkleinern alles anpasst. Alternativ (wie schon geschrieben wurde) geht auch das OnResize-Event des Formulars

Das gibt IMHO eine Endlosschleife! Jedenfalls so wie ich es verstehe!

[xavior]

Ja aber wie frage ich den WM_SYSCOMMAND ab! (Ich hab mir schon die hälfte meiner Kopfhaare ausgerupft!) :wall:

[neolithos]

Wieso machst du sowas!

Obwohl ich Dir schon erklärt habe wie man das OHNE WM_SYSCOMMAND macht.

Aber bitte, obwohl man das Problem so mit dem Holzhammer erschlägt:

Delphi-Quellcode:

type
  TForm1 = class


  private
    procedure WMSysCommand(var Message : TWMSysCommand); message WM_SYSCOMMAND;


procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
begin
  if Message.CmdType = SC_MAXIMIZE then
    // was nun?
  else
     inherited; // für alle Anderen
end;

[xavior]

Tut mir leid, ich sag ja ich bin noch Anfänger! Boar, aber trozdem danke, genau sowas meinte ich! Und ich versteh es sogar! :thuimb: :zwinker: :hello:

P.S.: Aber ich hab noch immer das Problem das mein Programm nicht mehr seine Position bei Drag & Drop ändert :gruebel: !

[neolithos]

Wenn das das Problem ist?

Bei Maximierten Fenstern kann man nicht die Position ändern.

Versuche statt align in WM_SYSCOMMAND mit SetBounds das Formular auszurichten.

[xavior]

Nein ich meine im ganz normalen zustand also wie ich das Programm desighnt habe, als würde Windows es festkleben!