怎么把一个按钮的caption倒着放？

Question

原来按钮的caption 是“abcdefg”  我要
a 
b
c
d
e
f
g就是把abcdefg旋转90度

Answer 1

如果是TBitBtn就很简单
Caption := '1'+#13+'2'+#13+......

Answer 2

不是换行，是把“abcdefg”转90度

Answer 3

使用图片自己继承TButton在WM_Point事件中画上去.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, GdipBitmap, ExtCtrls;type
  TMyButton = class(TButton)
  private
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  end;  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  InsertControl(TMyButton.Create(Self));
end;{ TMyButton }procedure TMyButton.WMPaint(var Message: TWMPaint);
var
  Canvas: TCanvas;
  DC: HDC;
begin
  inherited;
  DC := GetDC(Handle);
  try
    Canvas := TCanvas.Create;
    try
      Canvas.Handle := DC;
      Canvas.Draw(10, 5, Form1.Image1.Picture.Graphic);
    finally
      Canvas.Free;
    end;
  finally
    ReleaseDC(Handle, DC);
  end;
end;end.

Answer 4

maozefa(阿发伯)好象有点跑题了哈。（说错了权当谬论哈)

Answer 5

呵呵，那劳烦maozefa(阿发伯)给个完全的码子看看吧。

Answer 6

呵呵，那劳烦maozefa(阿发伯)给个完全的码子看看吧。
================================================================================
难道要我做一张图片送给搂住?拜托,我怕你好吗?我的无论对于错,与你无关,你应该去看心理医生

Answer 7

有点难度。不过调用API可以解决。
VB能看懂吗？？
如果可以，参考这个：http://www.yesky.com/20011026/202294.shtml

Answer 8

用图片灵活性不好，可以直接用api，windows programming上有例子。

Answer 9

把button1的长宽调大大的，否则看不到效果！
然后:
方案一:
procedure TForm1.Button1Click(Sender: TObject);
var
  lf:TlogFont;
begin
  FillChar(lf, SizeOf(lf),0);
  GetObject(Button1.Font.Handle,sizeof(TLogFont),@lf);
  lf.lfEscapement:=270*10 ;
  Button1.Font.Handle:=CreateFontIndirect(lf);
end;

Answer 10

方案二:
procedure TForm1.Button1Click(Sender: TObject);
var
  lf:TlogFont;
begin
  FillChar(lf, SizeOf(lf),0);
  lf.lfHeight := 0;
  lf.lfWidth := 0;
  lf.lfWeight:= FW_NORMAL;
  lf.lfCharSet := DEFAULT_CHARSET;
  lf.lfOutPrecision := OUT_DEFAULT_PRECIS;
  lf.lfClipPrecision := CLIP_DEFAULT_PRECIS;
  lf.lfQuality := DEFAULT_QUALITY;
  lf.lfPitchAndFamily := DEFAULT_PITCH or FF_DONTCARE;
  lf.lfFaceName := 'MS Sans Serif';
  lf.lfEscapement:=270*10;  //逆时针旋转270度
  Button1.Font.Handle:=CreateFontIndirect(lf);
end;

Answer 11

方案二中设置lf的属性较多，可以利用with .. do 结构:
with lf do 
begin
  ......
end;

Answer 12

请给我分!!!  把font 字体改成如:"@宋体" 就可以了
请给我分!!!  把font 字体改成如:"@宋体" 就可以了
请给我分!!!  把font 字体改成如:"@宋体" 就可以了

Answer 13

请给我分!!!  把font 字体改成如:"@宋体" 就可以了
======================
你自己试试先，行的话偶也不用发帖问了