求帮助。。设置窗体背景颜色的问题-CSDN论坛

CSDN论坛 > Delphi > 语言基础/算法/系统设计

求帮助。。设置窗体背景颜色的问题 [问题点数：20分，结帖人yangzhihang1988]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅求帮助。。设置窗体背景颜色的问题 ⋅新手求解，编译后产生一个warning ⋅新手求助，为什么这程序的长整型结果是这样？ 更多帖子 关注私信空间博客 yangzhihang1988 本版专家分：0 结帖率 100%: 各位大侠。帮帮忙。初学Delphi，这是书本上的一个课后习题，可是书上没有解释。我不知道在代码编辑窗中该怎么写，给点思路吧，先在这谢谢了，
要求用if...then 语句来设置背景颜色。
题目：在窗体的文本框中输入red，单击【确定】按钮后，窗体背景颜色变为红色，同时显示“窗本背景为红色”字样。窗体框中有一个label，一个edit，和一个button。

0 2010-11-10 10:27:45

回复数 3 只看楼主引用举报楼主

⋅bdmh的留言板

⋅Android:都是Layout的BaselineAligned惹的祸

⋅ListView中Button无法点击

更多帖子

关注私信空间博客

bdmh

本版专家分：132237

版主

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

名人 2019年荣获名人称号
2013年荣获名人称号

状元 2012年总版技术专家分年内排行榜第一

进士 2013年总版技术专家分年内排行榜第七
2011年总版技术专家分年内排行榜第五
2009年总版技术专家分年内排行榜第九



procedure TForm1.Button1Click(Sender: TObject);

begin

  if Edit1.Text = 'red' then

    Self.Color := clRed;

end;

0 2010-11-10 10:35:11

只看TA 引用举报 #1 得分 5

⋅此用户还没有发表过任何帖子 关注私信空间博客 versus1008 本版专家分：913



procedure TForm3.Button1Click(Sender: TObject);

begin

  if Edit1.Text = 'red' then

  begin

    Label1.Caption := '窗本背景为红色';

    Self.Color := clRed;

  end;

end;

0 2010-11-10 10:36:10

只看TA 引用举报 #2 得分 15

⋅求帮助。。设置窗体背景颜色的问题 ⋅新手求解，编译后产生一个warning ⋅新手求助，为什么这程序的长整型结果是这样？ 更多帖子 关注私信空间博客 yangzhihang1988 本版专家分：0: 引用 2 楼 versus1008 的回复:
Delphi(Pascal) code

procedure TForm3.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'red' then
  begin
    Label1.Caption := '窗本背景为红色';
    Self.Color := clRed;
  end;
end;

是了，谢谢。

0 2010-11-10 10:43:41

只看TA 引用举报 #3    得分 0

收藏帖子