Maximierung eines Programms nur auf ein Teil beschränken

[xavior]

Danke! Ja hab ich!

1. Frage:

Code:

if CheckBox1.Checked and ((Message.CmdType = SC_MAXIMIZE) or (Message.CmdType = SC_MAXIMIZE + 2)) then

Wieso die "

Code:

+2

" hier

Code:

Message.CmdType = SC_MAXIMIZE + 2

?

2. Frage:

Code:

 If (Message.CmdType = SC_MAXIMIZE) and (SForm.Align = alCustom) then begin
  SForm.Align := alTop;
 end else begin
  inherited;
 end;
 If (Message.CmdType = SC_MAXIMIZE) and (SForm.Align = alTop) then begin
  SForm.Align := alCustom;
 end else begin
  inherited;
 end;

Was mach ich hier falsch? Bei 1. mal wir das Fenster bei maximieren nach oben verschoben (so wie es haben wollte! Außer das bei maximieren jetzt nicht mehr beim maximieren, im maximierten Zustand die 2 Doppeöfenster angezeigt werden!). Beim 2. mal passiert garnichts!