Clientbereich eines eigenen Controls beschränken

[RSE]

Hallo,

ich entwickle ein eigenes von TCustomControl abgeleitetes Control. Dessen Clientbereich soll nicht den ganzen Bereich des Controls umfassen, sondern oben einen von Caption abhängigen Bereich ausklammern. Der Clientbereich verändert sich also (wegen Zeilenumbruch) abhängig vom Caption in der Höhe und in der Position (Top). Was ich bis jetzt herausgefunden habe: Lediglich ClientHeight und ClintWidth kann man schreiben. Diese Werte verändern allerdings auch direkt Width und Height (was ich natürlich nicht will). Wie man den Top-Wert des Clientbereichs ändern kann, habe ich noch nicht herausgefunden. Die Elemente im Clientbereich sollen relativ zur oberen linken Ecke des Clientbereichs gleich positioniert bleiben, wenn ich diesen verschiebe.

Wie ist das korrekte Vorgehen beim Anpassen des Clientbereichs bei der Eigenentwicklung eines Controls?

[uligerhardt]

Wenn ich dich recht verstehe, willst du AdjustClientRect überschreiben.

[RSE]

Zitat:

...die Eigenschaft ClientRect nicht mit dem Bereich identisch ist, in dem untergeordnete Objekte angezeigt werden können.

Ich dachte eigentlich, dass ich ClientRect selbst ändern müsste. Ich werde mal probieren, was AdjustClientRect bewirkt.

[RSE]

Nein, durch ein Überschreiben von AdjustclientRect verschieben sich die untergeordneten Elemente auch nicht von selbst. Ich drücke mich mal etwas bildlicher aus, vielleicht habe ich es ja immernoch nicht korrekt formulieren können, was ich will:

Meine Komponente heiße MyControl. "Innerhalb" MyControl gebe es eine MyCheckbox, so dass MyCheckbox.Parent = MyControl. Wenn ich nun MyCheckbox.Top := 0 setze, dann soll MyCheckbox nicht bei MyControl.Top gezeichnet werden, sondern bei MyControl.Top+CaptionHeight. Meine Interpretation: Der Clientbereich von MyControl muss um CaptionHeight nach unten verschoben und in der Höhe um CaptionHeight verringert werden. Jedesmal, wenn sich CaptionHeight ändert, möchte ich den Clientbereich von MyControl anpassen. Dadurch soll MyCheckbox automatisch immer direkt unter dem Anzeigebereich von MyControl.Caption positioniert werden. Ist das nicht genau das, was die ganzen Client-Eigenschaften aussagen?

[ChrisE]

Hallo,

versuche mal die GetClientRect-Methode von TControl zu überschreiben.

Greez, Chris

[RSE]

GetClientRect ist ja letztlich auch nur ein WinAPI-Aufruf. Irgendwie muss der Clientbereich schon im Windows ordentlich gesetzt werden.

Inzwischen bin ich so weit ein Panel zu benutzen. Dann wäre der Clientbereich eben der Bereich des Panels... aber dann muss ich ja auch alles erst umbiegen auf das Panel. Weniger Aufwand wird das bestimmt nicht, unschön wär es dazu, aber es ginge...

[ChrisE]

Nein,

GetClientRect ist eine protected-Methode von TControl die virtuell deklariert ist. Diese wird z.B. aufgerufen um die property ClientRect den Wert zu geben. Schau dir bitte die Sourcen von TControl etc. an. Dann wirast du es sehen.

Greez, Chris

[RSE]

Du hast Recht. Und in TWinControl wird das Ergebnis von TControl mit dem Ergebnis der WinAPI-Funktion GetClientRect überschrieben. Wenn ich das ändere, dann erhalte ich das gleiche eigenartige Ergebnis, wie wenn ich WMNCCalcSize überschreibe und entsprechend ändere: MyCheckbox wird weiterhin über die Caption gezeichnet, aber der Hintergrund wird außerhalb vom eingeschränkten ClientRect nicht mehr gezeichnet...

[RSE]

Korrektur meiner Aussage von eben:
Mein Test mit WMNCCalcSize verschiebt die MyCheckBox dorthin, wo ich sie haben will. Ich muss jetzt nur noch all das selbst zeichnen, was außerhalb des eingeschränkten Clientbereichs liegt.

Code:

procedure TMyControl.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
  with Message.CalcSize_Params^ do
    Inc(rgrc[0].Top,FCaptionHeight);
  inherited;
end;

[ChrisE]

Hallo,

du könntest auch von TGraphicControl ableiten (wie z.B. TSpeedButton auch).

Greez, Chris