第1个回答 2006-09-14
5月8日 15:28 因为这里使用了with语句。
With语句是一种用于简化代码的语句。如你要访问一个记录类型变量（或一个对象），用With语句就不必每次重复变量的名字。例如对于以下的记录类型代码：
type
Date = record
Year: Integer;
Month: Byte;
Day: Byte;
end;
var
BirthDay: Date;
begin
BirthDay.Year := 1997;
BirthDay.Month := 2;
BirthDay.Day := 14;
可以用with语句改进后半部分代码，如下：
begin
with BirthDay do
begin
Year := 1995;
Month := 2;
Day := 14;
end;
在Delphi程序中，这种方法能用于访问控件和类变量。
With语句是一种用于简化代码的语句。如你要访问一个记录类型变量（或一个对象），用With语句就不必每次重复变量的名字。例如对于以下的记录类型代码：
type
Date = record
Year: Integer;
Month: Byte;
Day: Byte;
end;
var
BirthDay: Date;
begin
BirthDay.Year := 1997;
BirthDay.Month := 2;
BirthDay.Day := 14;
可以用with语句改进后半部分代码，如下：
begin
with BirthDay do
begin
Year := 1995;
Month := 2;
Day := 14;
end;
在Delphi程序中，这种方法能用于访问控件和类变量。
如何实现label里面的字体竖着?(delphi)
把Label的WordWrap属性设为true 然后要换行的地方打#13#10
如何实现label里面的字体竖着?(delphi)
在Delphi程序中，这种方法能用于访问控件和类变量。
在使用DELPHI中LABEL按钮写说明时怎么汉字是成90度歪倒的???
楼上说的是一种方法 但是只能向一边歪倒 有一定局限性 具体代码我就不贴出来了 看来楼主刚学delphi,建议到大富翁论坛去，有很多源码，下那么几百M到硬盘上，遇到啥问题就找相关的源码，方便很多的 呵呵
delphi 怎么更改 button 和 label 的字体?
两种方法, 一种直接在空间的属性栏里面修改 另外一种就是使用程序修改 比如button的字体改成tahoma Button.Font.Name := 'Tahoma';label的修改也一样 Label.Font.Name := '宋体';
delphi Progressbar的进度条如何显示进度值?
为了在Delphi的Progressbar上显示进度值，可以采取以下步骤。首先，在Progressbar上放置一个Label，将AutoSize属性设置为false，然后清空Label的文字，并调整其大小以适应进度条。接着，设置Label的背景色为与文字颜色相同的颜色。接下来是关键的代码部分：需要引入System.Drawing.Drawing2D命名空间。在按钮点击...
Delphi的LabelEdit控件上面的Label内容显示不全怎么办?
这是delphi6以后带来的bug，我来教你一个办法，你将Label的font设为字体改为,宋体,9号,字符集,chinese_gb2312,AutoSize设为true就行了。
delphi StringGrid一行一行的增加表格,如何实现垂直滚动条一直跟着新增...
这是我过去做过的一个有效实例，供参考：procedure TForm1.BitBtn1Click(Sender: TObject); \/\/增加一条时，行号指向最后一条 begin StringGrid1.RowCount:=StringGrid1.RowCount+1; \/\/追加一行 StringGrid1.Row:= StringGrid1.RowCount-1; \/\/行号跟进 Label1.Caption:='当前行：'+IntToStr(...
用Delphi中用timer控件移动label时文字闪烁问题
form1.doubleBuffered:= true;代码设置form的doublebuffered属性为true能有效解决闪烁问题。但是相应的会消耗内存。
delphi中label的字体改大了,为什么在窗体显示还是那么小
字体的大小除了跟字体本身的设置大小有关，还与系统的显示分辨率设置有关，比如，800*600的分辨率比1600*1200的分辨率，同样的字体大小在显示看起来要小。
delphi中labeledit控件怎么样将其前面显示的labeledit改成文字?
EditLabel里的Caption是改labeledit改成文字的 labelposition是改变label相对于edit的位置的
把Label的WordWrap属性设为true 然后要换行的地方打#13#10
如何实现label里面的字体竖着?(delphi)
在Delphi程序中，这种方法能用于访问控件和类变量。
在使用DELPHI中LABEL按钮写说明时怎么汉字是成90度歪倒的???
楼上说的是一种方法 但是只能向一边歪倒 有一定局限性 具体代码我就不贴出来了 看来楼主刚学delphi,建议到大富翁论坛去，有很多源码，下那么几百M到硬盘上，遇到啥问题就找相关的源码，方便很多的 呵呵
delphi 怎么更改 button 和 label 的字体?
两种方法, 一种直接在空间的属性栏里面修改 另外一种就是使用程序修改 比如button的字体改成tahoma Button.Font.Name := 'Tahoma';label的修改也一样 Label.Font.Name := '宋体';
delphi Progressbar的进度条如何显示进度值?
为了在Delphi的Progressbar上显示进度值，可以采取以下步骤。首先，在Progressbar上放置一个Label，将AutoSize属性设置为false，然后清空Label的文字，并调整其大小以适应进度条。接着，设置Label的背景色为与文字颜色相同的颜色。接下来是关键的代码部分：需要引入System.Drawing.Drawing2D命名空间。在按钮点击...
Delphi的LabelEdit控件上面的Label内容显示不全怎么办?
这是delphi6以后带来的bug，我来教你一个办法，你将Label的font设为字体改为,宋体,9号,字符集,chinese_gb2312,AutoSize设为true就行了。
delphi StringGrid一行一行的增加表格,如何实现垂直滚动条一直跟着新增...
这是我过去做过的一个有效实例，供参考：procedure TForm1.BitBtn1Click(Sender: TObject); \/\/增加一条时，行号指向最后一条 begin StringGrid1.RowCount:=StringGrid1.RowCount+1; \/\/追加一行 StringGrid1.Row:= StringGrid1.RowCount-1; \/\/行号跟进 Label1.Caption:='当前行：'+IntToStr(...
用Delphi中用timer控件移动label时文字闪烁问题
form1.doubleBuffered:= true;代码设置form的doublebuffered属性为true能有效解决闪烁问题。但是相应的会消耗内存。
delphi中label的字体改大了,为什么在窗体显示还是那么小
字体的大小除了跟字体本身的设置大小有关，还与系统的显示分辨率设置有关，比如，800*600的分辨率比1600*1200的分辨率，同样的字体大小在显示看起来要小。
delphi中labeledit控件怎么样将其前面显示的labeledit改成文字?
EditLabel里的Caption是改labeledit改成文字的 labelposition是改变label相对于edit的位置的
相似回答
大家正在搜
