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.