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