Wie TCustomControl.ClientHeight beobachten? [gelöst]

[RSE]

Bei meiner eigenen Komponente darf die ClientHeight nicht unter meine eigene Eigenschaft ItemHeight fallen. SetClientHeight kann ich ja leider nicht überschreiben. Wie bemerke ich Änderungen an ClientHeight, auch wenn sich Height nicht ändert (z.B. beim Einblenden der Scrollbalken)?

[Hitman]

Wärs nicht sinnvoller, dafür die bereits vorhandenen Constraints zu nutzen?

[RSE]

Constraints für ClientHeight? Wenn ich mich nicht ganz schlimm irre, gelten die Constraints für Height und Width und nicht für ClientHeight und ClientWidth. Genau da liegt mein Problem, wenn plötzlich eine Scrollbar oder so auftaucht, die den Unterschied zwischen Height und ClientHeight vergrößert, muss ich die Constraints erneut entsprechend anpassen, damit die ClientHeight nie zu klein wird. Wenn ich die Constraints anpasse, werde ich ggf. auch die Height anpassen, daraufhin wird OnResize ausgelöst und dabei kann ggf. das Fenster, in dem sich meine Komponente befindet, angepasst werden. Fehlend in dieser Kette ist lediglich ein DoOnClientResize oder sowas zum Überschreiben.

[theo]

Bei mir (GTK2) TScrollbox wird auch ein resize event aufgerufen, wenn sich der Inhalt ändert.

Bsp. Ich habe eine TScrollBox mit einem Panel drin:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Panel1.Width=200 then  Panel1.Width:=900 else  Panel1.Width:=200
end;
 
procedure TForm1.ScrollBox1Resize(Sender: TObject);
begin
  Caption:=Inttostr(ScrollBox1.ClientHeight);
end;

Die Wert (Caption) ändert sich, wenn ich den Inhalt (Panel) grösser mache sodass die Scrollbars erscheinen.
Ist das nicht, was du möchtest?

[RSE]

Hm, nicht ganz, glaube ich. So wie du es beschrieben hast, habe ich zumindest noch nicht gearbeitet.
Beispiel:
Meine Komponente ist ursprünglich 80 Pixel hoch. Da ist ClientHeight also 80. Auf dieser Grundlage berechne ich Constraints.MinHeight auf z.B. 30, damit ClientHeight mindestens 30 groß ist. Jetzt wird ein Border hinzugefügt. Das benötigt rundherum an jeder Kante z.B. 2 Pixel, d.h. Height bleibt gleich, aber ClientHeight schrumpft von ehemals 80 auf 76. Ob dabei Resize aufgerufen wird, werde ich heute abend mal testen. Jedenfalls müsste ich in diesem Moment Constraints.MinHeight auf 34 setzen, damit ClientHeight immernoch die 30 nicht unterschreiten kann. Optimalerweise müsste mein Eingriff natürlich passieren, wenn die neuen Werte bereits berechnet, aber noch nicht übernommen wurden, damit ich ggf. die Height neu setzen kann, bevor es flimmert. Ich habe selbst noch nicht probiert wann genau und ob Resize aufgerufen wird etc.

[RSE]

Resize wird auch bei Änderung von ClientHeight oder ClientWidth aufgerufen. Ich habe meinen Code jetzt direkt vor "inherited Resize;" eingebaut, klappt wunderbar.