ja wtawic animecje do buttona + efekt mouseover ???---= pozdrawiam Oskar =- (delphi 6 GG:2792614)
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
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 ]==-=-
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.