把BUTTON拉的长一点就可以了。
解决方案 »
- delphi 主线程优先级???
- 关于Filter过滤的问题
- flash播放中的个小问题
- ADOStoredProc,在线急等。
- 如何在BeforeScroll事件根据条件来允许或禁止AdoQuery的Scroll事件发生
- 求ASTA的使用方法,高手请进
- 对表 "Source"UPDATE 操作,显示错误提示:" InternalDataSet: Cursor not returned from Query."
- SHBrowseForFolder爆了
- 请问怎么打开WinNt4.0的计划任务管理器?
- Unidac放入datamodule中无法显示数据
- ClientDataSet初始化问题?
- 现在很多软件的一个功能怎么实现?
然后在其中写字
你拦截WM_Paint消息procedure TForm1.Button1Click(Sender: TObject);
var
c:TCanvas;
begin
c:=TControlCanvas.Create;
TControlCanvas(c).Control:=Button1;
c.Brush.Style:=bsClear;
c.Pen.Color:=clBlue;
c.TextOut(10,10,'确定');
c.TextOut(10,25,'确定');
c.Free;
end;
只是不太灵活。如果你的button不经常变尺寸的话没问题
挺不好解决的
不好意思了
我写了代码,还是不太完善,自己看吧
希望能看懂
才23分你赚倒了unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TMyButton=class(TButton)
private
public
procedure WMPaint(var Message: TWMPaint);message WM_PAINT;
end; TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
procedure MBONCLICK(Sender:TObject);
end;var
Form1: TForm1;
implementation{$R *.dfm}
procedure TForm1.MBONCLICK(Sender:TObject);
begin
PostMessage(TMyButton(Sender).Handle,WM_PAINT,0,0);
end;procedure TForm1.FormShow(Sender: TObject);
var
b:TMyButton;
begin
b:=TMyButton.Create(Form1);
b.Parent:=Form1;
b.Height:=50;//这里可以设置TMyButton的位置
b.OnClick:=MBONCLICK;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
beginend;{ TMyButton }procedure TMyButton.WMPaint(var Message: TWMPaint);
var
c:TCanvas;
begin
inherited;
c:=TControlCanvas.Create;
TControlCanvas(c).Control:=Self;
c.Brush.Style:=bsClear;
c.Pen.Color:=clBlue;
c.TextOut(10,10,'确定');
c.TextOut(10,25,'确定');
c.Free;
end;end.
改caption和font
可能是这样
不知行不行
如:if button1.caption='加入/入帐' then
begin
button1.capton:='加成'
button1.font:=....
end;