请问delphi7中按钮(button)上字体的颜色能改吗?怎么改?请详解!

这么复杂啊~我晕菜~... 这么复杂啊~我晕菜~ 展开
 我来答
vlacl25
2011-02-19 · TA获得超过318个赞
知道答主
回答量:85
采纳率:0%
帮助的人:56.1万
展开全部
你还是自己定一个比较好一点这样就会没什麽限制
unit uStock_MesShow;

interface

uses
Windows ,Forms ,Controls ,StdCtrls ,Classes,Graphics,SysUtils;

type
TMyForm = class(TForm)
private
procedure buttclick(Sender:TObject);
public
constructor CreateNew(Title,MesStr:string;FAOwner:TComponent);reintroduce;
procedure FormShow;
end;

TDlgForm = class (TForm)
private
procedure buttclick(Sender:TObject);
procedure but2tclick(Sender:TObject);
public
constructor CreateNew(Title,MesStr:string;FAOwner:TComponent);reintroduce;
procedure FormShow;
end;
var
lb1:TLabel;
but,but2:TButton ;
Cen,len,ret:Integer;
StrTitle,strShow:string;
implementation

procedure TMyForm.buttclick(Sender: TObject);
begin
Close;
end;

constructor TMyForm.Createnew(Title,MesStr: string;FAOwner:TComponent);
begin
inherited CreateNew(FAOwner);
len := Length(MesStr);
Cen := len div 17;
strShow := MesStr;
StrTitle := Title;
lb1 := TLabel.Create(self);
but := TButton.Create(self);

Self.Width := 300;
Self.Height := 200;
Self.Position := poScreenCenter ;
end;

procedure TMyForm.FormShow;
begin
lb1.Parent := self;
lb1.AutoSize := false;
lb1.Left := 26 ;
lb1.Top := self.Top + 30;
lb1.Color := clRed ;
lb1.Width := self.Width -55;
if cen > 0 then lb1.Height := cen*20 ;
lb1.Alignment := taCenter;
lb1.Transparent := true;
if StrTitle = '' then self.Caption := '声动王提示讯息' else self.Caption := StrTitle;
lb1.Caption := strShow;
lb1.WordWrap := True;
but.Top := 90 ;
but.Left := self.Width div 2 -but.Width div 2;
but.Parent := self;
but.OnClick := buttclick;
but.Caption := ' 确定 ';
but.Default := true;
end;

constructor TDlgForm.CreateNew(Title,MesStr:string;FAOwner:TComponent);
begin
inherited CreateNew(FAOwner);
len := Length(MesStr);
Cen := len div 17;
strShow := MesStr;
StrTitle := Title;
lb1 := TLabel.Create(self);
but := TButton.Create(self);
but2 := TButton.Create(self);
Self.Width := 300;
Self.Height := 200;
Self.BorderStyle := bsDialog ;
Self.Position := poScreenCenter ;
Self.Hint := '0';
end;

procedure TDlgForm.FormShow;
begin
lb1.Parent := self;
lb1.AutoSize := false;
lb1.Left := 26 ;
lb1.Top := self.Top + 30;
lb1.Color := clRed ;
lb1.Width := self.Width -55;
if cen > 0 then lb1.Height := cen*20 ;
lb1.Alignment := taCenter;
lb1.Transparent := true;
if StrTitle = '' then self.Caption := 'Application is Error' else self.Caption := StrTitle;
lb1.Caption := strShow;
lb1.Font.color := clRed;
lb1.WordWrap := True;
but.Top := 90 ;
but.Left := self.Width div 2 - but.Width;
but.Parent := self;
but.OnClick := buttclick;
but.Caption := '确定';
but.Default := true;
but2.Top := 90 ;
but2.Left := self.Width div 2 +10;
but2.Parent := self;
but2.OnClick := but2tclick;
but2.Caption := '取消';
end;

procedure TDlgForm.buttclick(Sender:TObject);
begin
Self.Hint := '0';
Close;
end;

procedure TDlgForm.but2tclick(Sender:TObject);
begin
Self.Hint := '1';
Close;
end;

procedure MessageShow(str1, str2: string; Sender: TObject);
var
dd:TMyForm;
begin
try
dd:=TMyForm.Createnew(str1,str2,TForm(Sender));
dd.FormShow ;
dd.FormStyle := fsStayOnTop ;
dd.ShowModal ;
finally
FreeAndNil(dd);
end;
end;

end.
这里只用了一个label,你用两个就可以了
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hrw060423
2012-04-19
知道答主
回答量:33
采纳率:0%
帮助的人:11.2万
展开全部
Bitbtn不就可以改字体颜色了吗。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式