TSpeedButton?

[Fallingstar]

怎样添加TSpeedButton控件？

[M16]

with TSpeedButton.create(self) do

[Drate]

不知道楼主说的是个什么添加法，如果是动态添加的话，我这里是一个演示的代码：

unit Unit1;

interface

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

type
TForm1 = class(TForm)

//动态按钮的响应事件
Procedure buttononclick(Sender:TObject);

procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.buttononclick(Sender: TObject);
begin
case TSpeeedButton(Sender).Tag of
1: showmessage('This is Test1');
2: showmessage('This is Test2');
end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
ButtonTest:TSpeeedButton;
btntop,
btnleft:Integer;

begin
btntop:=10;
btnleft:=10;
ButtonTest:=TButton.Create(Self);
With ButtonTest do
begin
tag:=1;
Caption:='test1';
parent:= self;
Top:=btntop;
Left:=btnleft;
onclick := buttononclick;
end;

btntop:=100;
btnleft:=100;
ButtonTest:=TButton.Create(Self);
With ButtonTest do
begin
tag:=2;
Caption:='test2';
parent:= self;
Top:=btntop;
Left:=btnleft;
onclick := buttononclick;
end;
end;

end.


如果是静态添加的话，可就是在你的控件面板上找到“Additional”中的第二项就是speedbutton了

[Drate]

刚才的代码有点问题，这是正确的，经DELPHI6测试通过：

unit Unit1;

interface

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

type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;

//动态按钮的响应事件
Procedure buttononclick(Sender:TObject);

procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.buttononclick(Sender: TObject);
begin
case TSpeedButton(Sender).Tag of
1: showmessage('This is Test1');
2: showmessage('This is Test2');
end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var
ButtonTest:TSpeedButton;
btntop,
btnleft:Integer;

begin
btntop:=10;
btnleft:=10;
ButtonTest:=TSpeedButton.Create(Self);
With ButtonTest do
begin
tag:=1;
Caption:='test1';
parent:= self;
Top:=btntop;
Left:=btnleft;
onclick := buttononclick;
end;

btntop:=100;
btnleft:=100;
ButtonTest:=TSpeedButton.Create(Self);
With ButtonTest do
begin
tag:=2;
Caption:='test2';
parent:= self;
Top:=btntop;
Left:=btnleft;
onclick := buttononclick;
end;
end;

end.