TImage Height und Width bei MouseMove langsam erhöhen?

[mlspider]

Hallo,

Das ändern der Größe von TImage bei MouseMove ist eigentlich mit zwei Zeilen erledigt.

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Image1.Height:=160;
 Image1.Width:=200;
end;

Wie kann man nun die ganze Geschichte so abändern, daß sich die Größe langsam auf die angegebenen Werte ändert? Ich habe es mit einem Timer probiert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Image1.Height :=  + 1;
  if Image1.Height > 160 then
  begin
    Timer1.Enabled := FALSE;
end;
end;

Leider funktioniert das irgendwie nicht.

[SirThornberry]

was heißt "funktioniert nicht"? Stellst du den Timer auch irgendwo an?
du schreibst ja auch
Image1.Height := + 1; was so viel bedeutet wie
Image1.Height := 1;

[mlspider]

Sicher.

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Timer1.Enabled:=True;
end;

[mlspider]

Problem hat sich erledigt.

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Height := Image1.Height + 1;
  if Image1.Height  >159 then
  begin
    Timer1.Enabled := FALSE;
    Image1.Height :=  160;
end;
end;

Jetzt habe ich nur noch das Problem mit dem flackern. Hoffe es aber mit

DoubleBuffered:=True; lösen zu können.