我觉得那就像是TPanel做的……
Just like Netants V1.0
I also wanna known it.
好象是用animatewindow这个api，不过我没试出来
不知哪位大侠可以指教一下
用一个TIMER控制两个TPANEL交替重绘。
参考如下代码：
Panel1.Visible := false;
AnimateWindow( Panel1.Handle, 1000, AW_HOR_POSITIVE );
Panel1.Visible := true; //此句必要，否则下次调用会失败
I also wanna known it.
It's so easy: 应该是三个Panel，在其中的一个上放俩，再用两个TThread（用Timer)也行...需要的话，我可以张贴一段Source。
贴一下喽！
我连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.
提前。
好古董噢！
up
没想到前面那位比我抢先了一步。
我连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.
up