ClientHeight verkleinern nicht möglich?

[Aenogym]

hi,

ich habe ein problem. mein timer vergrößert mal die clientheight und mal verkleinert er sie. zumindest soll er das. vergrößern klappt auch nur wenn er sie verkleinern soll, passiert einfach nix. mein gesetzter breakpoint wird aufgerufen aber der debug inspector verrät, dass sich die clientheight nach aufrufen der codezeile nicht geändert hat.

hier mein code (in tempheight sieht die höhe vor dem schließen, damit der timer beim öffnen and er stelle anhält):

Delphi-Quellcode:

procedure Tfrm_instant_msg.Timer1Timer(Sender: TObject;
  LagCount: Integer);
begin
  if close = false then
  begin
    //öffnen
    if self.clientheight = tempheight then
    begin
      timer1.Enabled := false;
    end
    else
      self.ClientHeight := self.clientheight + 1; //funktioniert problemlos
  end;

  if close = true then
  begin
    //schließen
    if self.clientheight = 0 then
    begin
      timer1.Enabled := false;
    end
    else
      self.ClientHeight := self.clientheight - 1;  //diese zeile wird ausgeführt, jedoch ändert sich die höhe nicht
  end;
end;

wisst ihr, was ich falsch mache? kann ich es sonst evtl. anders lösen?

danke,
Aenogym

[Ultimator]

Ich hab zwar keine ahnung, wieso es nicht geht, aber probier mal dec(self.Clientheight) und inc(self.cliehtheight).
Vielleicht geht das...

[Robert_G]

Zitat von Ultimator:

Ich hab zwar keine ahnung, wieso es nicht geht, aber probier mal dec(self.Clientheight) und inc(self.cliehtheight).
Vielleicht geht das...

Schaue dir danach den generierten Code im DisAssembler an -> Es wird exakt der gleiche sein! (Oder er steigt dir auf's Dach, weil er die Property für ReadOnly hält )

Ich stochere jetzt auch im Dunkeln, aber wird das ClientRect nicht der eigentlichen Control-Größe angepasst?

Ein einfaches ...
self.Height := self.Height - 1; .. würde doch IMHO zum gleichen Ziel führen (Bitte korrigiert mich, falls ich jetzt Käse geschrieben habe )

[alcaeus]

Nein Robert, du redest keinen Käse. ClientHeight ist nur die Größe des Controls (also Height) minus der Größe des Randes und der Titelleiste. Bei ClientWidth verhält es sich ähnlich.
Wenn du also Height oder Width um 1 dekrementierst, so verringern sich auch ClientHeight bzw. ClientWidth

Greetz
alcaeus

[supermuckl]

naja height is mehr als clientheight

dazwischen liegt unsichtbarer bereich (nicht sichtbar)

[Ultimator]

Zitat:

dazwischen liegt unsichtbarer bereich (nicht sichtbar)

Was du nicht sagst

[Niko]

Hi,

hast du vielleicht in Constraints eine Minimalhöhe angegeben?

[Aenogym]

nein, constraints sind auf 0. ich ahbe auch schon self.height := self.height - 1 versucht. geht aber auch nicht. dec(self.clientheight); geht auch nicht.
könntes es vielleicht daran liegen, dass ich einen TWebbrowser auf alClient und ein Panel auf alBottom auf dem Form habe?

[alcaeus]

Zitat von Aenogym:

könntes es vielleicht daran liegen, dass ich einen TWebbrowser auf alClient und ein Panel auf alBottom auf dem Form habe?

Nein, an dem sollte es normal nicht liegen. Vielleicht hast du aber Constraints beim WebBrowser oder dem Panel gesetzt. Normalerweise behindern die Komponenten aber nicht das Verkleinern der Form.

Greetz
alcaeus

[Aenogym]

jetzt klappt es. irgendwie muss es einen konflikt mit der variable gegeben haben...
verstehe ich zwar nicht, weil ich nicht viel geändert habe, aber naja.

problem gelöst. danke leute