怎样重新编写一个继承TSpeedButton类型的控件，并让它的caption支持左对齐或右对齐 ( 积分: 100 )

怎样重新编写一个继承TSpeedButton类型的控件，并让它的caption支持左对齐或右对齐

怎样重新编写一个继承TSpeedButton类型的控件，并让它的caption支持左对齐或右对齐

提供控件也可

可以使用 Raize Components 中的 Button 啊，如 TRzButton、TRzBitBtn 等，这是下载：
http://www.delphifans.com/SoftView/SoftView_1674.html

找不到序列号

如果是封装标准的Windows按钮的控件, 设置BS_RIGHT/BS_LEFT风格即可

procedure tspeedButtonAlign.Paint;
var
ARect:TRect;
begin
inherited;

if FAlignment= taLeftJustify then
begin
ARect:=Rect(0, 4, Width, Height);
DrawText(canvas.Handle, PChar(Caption), Length(Caption), ARect,
DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end
else if FAlignment= taRightJustify then
begin
ARect:=Rect(0, 0, Width, Height);
DrawText(canvas.Handle, PChar(Caption), Length(Caption), ARect,
DT_RIGHT or DT_VCENTER or DT_SINGLELINE);
end
else if FAlignment= taCenter then
begin
ARect:=Rect(0, 0, Width-4, Height);
DrawText(canvas.Handle, PChar(Caption), Length(Caption), ARect,
DT_CENTER or DT_VCENTER or DT_SINGLELINE) ;
end;

end;

我先试一试

TSpeedButton也该不是标准的Windows按钮的控件

接受答案了.