Animiertes Gif in Button??

[ninja]

hallo.
ich wußte ehrlich gesagt nicht das mit dem panel einen button simulieren kann.
ich hab auch schon ein bißchen ausprobiert, aber ich bekomme das nicht hin.
kann mir vieleicht jemand einen kleinen tip geben?
gruß ninja

[scp]

Steht doch alles schon da oben, die einfachste Variante:

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.BevelOuter := bvLowered;
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.BevelOuter := bvRaised;
end;

[ninja]

super, danke.
jetzt hab ichs verstanden wie man das schreiben muß.
thx ninja :-D

[Tommy1988]

Zitat:

aber animiert ist da nix.

Schon mal in den Eigenschaften von JvGifAnimator "Animate" auf True gesetzt?

[Progman]

öhm.... das Thema ist von 2003 ;)

[MCXSC]

Vor allem hat ninja vor 4 Jahren selbst die Lösung gepostet... :D

[DeddyH]

Dann wurde es aber auch Zeit, dass die mal jemand "abstaubt" :mrgreen: