Imam mali problem!Ja sam probao ovako ali nevalja,u principu radi ali ne kako treba!
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
animatewindow(panel1.Handle,800,aw_ver_negative or aw_hide);
speedbutton1.Hide;
speedbutton2.Show;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
animatewindow(panel1.Handle,800,aw_ver_positive);
speedbutton2.Hide;
speedbutton1.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.Hide;
end;
Ovako radi,ali kad stavim nesto na panel prilikom spustanja ono blinka,zmirka,...a ja to nezelim!
Hteo bih da dobijem slican efekat kao sto ima xp,znate ono kad 2 puta kliknete na my computer,pa se otvori prozor a ono sa leve strane imamo system tasks,other places,... :)pa kad kliknemo na system tasks,other places,...a ono se polako spusti.
Pokusavao sam i sa canvas,ali nedobijem efekat kakav zelim,pa ako moze mala pomoc!hvala pozzzzzz!
Ivan :)
