form bileşenleri visible olurken animasyon verme?

[sarp_halit]

S. A. Arkadaşlar.

kullandığım form üzerinde yer alan bir panelin visible özelliğini veri tabanından gelen bir değere göre true ya da false yapıyorum. buradaki amacım bu işleme bir haretket katmak.

kaydırma şeklinde ya da fade in- out şeklinde bir animasyonla görünürlüğünü nasıl değiştirebilirim? teşekkür ederim.

[savasgti]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  I : integer;
begin
  for I := 0 to (cxGroupBox1.Left+cxGroupBox1.Width) - 1 do
    cxGroupBox1.Left := cxGroupBox1.Left-1;
end;