Animacja [button]

0

ja wtawic animecje do buttona + efekt mouseover ???---= pozdrawiam Oskar =- (delphi 6 GG:2792614)

0

Nie najlepsze to ale działa...

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
obraz : TBitmap;
pole : TCanvas;
begin
Obraz := TBitmap.Create;
Pole := TCanvas.Create;
Pole.Handle := GetDC(Button1.Handle);

Obraz.LoadFromFile('obraz1.bmp');
Pole.Draw(10,10, Obraz);
Sleep(100);

Obraz.LoadFromFile('obraz2.bmp');
Pole.Draw(10,10, Obraz);
Sleep(100);

Obraz.LoadFromFile('obraz3.bmp');
Pole.Draw(10,10, Obraz);
Sleep(100);

Obraz.Free;
Pole.Free;
end;--Delphi 6
Pozdrawiam All

0

poszukaj komponentu GifButton na
http://www.delphispirit.com/
http://www.torry.net/
http://www.sunsite.icm.edu.pl/delphi/
a jak tego nie znajdziesz to wtedy szukaj GifImage i w zrodlach bedzie Button :)

---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0