Animasyon form panel açma

[brs]

Selam; Daha önce panel ile denedim fakat bir türlü sağlıklı sonuç alamadım.

Dbgrid veya listview kullanarak verileri listliyorum butona tıkladığımda resimdeki görüldüğü gibi sağdan sola açılan panel veya form gelmesini nasıl sağlaya bilirim..

[G.Arkas]

Kendi yazılımlarım için tasarladığım küçük bir kodu paylaşıyorum. Bu kod ile Handle belirttiğin tüm kontroller "Soldan - Sağa" animasyon şeklinde açılır.

Kendine göre ayarlayabilirsin.

Kod: Tümünü seç

procedure SlidePanel(Handle: HWND);
var
  Flugs:DWORD;
begin
  AnimateWindow(Handle, 200, aw_hide or AW_SLIDE OR AW_HOR_NEGATIVE);
  Flugs := aw_hide;
  if flugs = aw_hide then
  AnimateWindow(Handle, 200, aw_activate or AW_SLIDE OR AW_HOR_NEGATIVE);
end;