怎样实现类似金山毒霸的动画效果的界面？

[canyan]

金山毒霸中，按动右上角的按钮，Tpanel移近移出的动画效果是怎样实现？
仅仅是改变Tpanel的Left等属性会导致严重的闪烁，水能告诉我怎么做？
谢过了！！！

[Firing_Sky]

我觉得那就像是TPanel做的……

[superdelphi]

Just like Netants V1.0
I also wanna known it.

[babyllw]

好象是用animatewindow这个api，不过我没试出来
不知哪位大侠可以指教一下

[haiyang]

用一个TIMER控制两个TPANEL交替重绘。

[江王]

参考如下代码：
Panel1.Visible := false;
AnimateWindow( Panel1.Handle, 1000, AW_HOR_POSITIVE );
Panel1.Visible := true; //此句必要，否则下次调用会失败

[Lin]

It's so easy: 应该是三个Panel，在其中的一个上放俩，再用两个TThread（用Timer)也行...需要的话，我可以张贴一段Source。

[liujh_ty]

I also wanna known it.

[Lin]

我连Timer也省了：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
ListBox1: TListBox;
RadioGroup1: TRadioGroup;
Memo2: TMemo;
RadioGroup2: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel3.Left := Panel1.ClientWidth;
Panel3.Top := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var nLoop: Integer;
begin
Panel3.Visible := True;
Panel3.BringToFront;
while Panel3.Left > 0 do
begin
Panel2.Left := Panel2.Left + 4;
Panel3.Left := Panel3.Left - 4;
Application.ProcessMessages;
end;
if Panel3.Left < 0 then Panel3.Left := 0;
Panel2.Visible := False;
Button1.Enabled := False;
Button2.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var nLoop: Integer;
begin
Panel2.Visible := True;
Panel2.BringToFront;
while Panel2.Left > 0 do
begin
Panel3.Left := Panel3.Left + 4;
Panel2.Left := Panel2.Left - 4;
Application.ProcessMessages;
end;
if Panel2.Left < 0 then Panel2.Left := 0;
Panel3.Visible := False;
Button1.Enabled := True;
Button2.Enabled := False;
end;

end.

[HF]

贴一下喽！

[Kingron]

提前。

[WuHeHai]

好古董噢！

[pbcl]

up

[dana]

没想到前面那位比我抢先了一步。
我连Timer也省了：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
ListBox1: TListBox;
RadioGroup1: TRadioGroup;
Memo2: TMemo;
RadioGroup2: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel3.Left := Panel1.ClientWidth;
Panel3.Top := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var nLoop: Integer;
begin
Panel3.Visible := True;
Panel3.BringToFront;
while Panel3.Left > 0 do
begin
Panel2.Left := Panel2.Left + 4;
Panel3.Left := Panel3.Left - 4;
Application.ProcessMessages;
end;
if Panel3.Left < 0 then Panel3.Left := 0;
Panel2.Visible := False;
Button1.Enabled := False;
Button2.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var nLoop: Integer;
begin
Panel2.Visible := True;
Panel2.BringToFront;
while Panel2.Left > 0 do
begin
Panel3.Left := Panel3.Left + 4;
Panel2.Left := Panel2.Left - 4;
Application.ProcessMessages;
end;
if Panel2.Left < 0 then Panel2.Left := 0;
Panel3.Visible := False;
Button1.Enabled := True;
Button2.Enabled := False;
end;

end.

[pbcl]

up