Question

delphi with do语句的解释

书上的例子 我不太能够理解 能不能介绍几个简单的例子 加以文件说明 帮助我深刻理解一下 谢谢
这个我懂，就象复杂的比如with Control as TlistBox do
begin
Canvas.Framtrct(Clientect);
if odSelected in State then
begin
...
end
else
begin
...
end
end;
我就不太理解了

Answer 1

比如说btn1.caption这个属性,一枯侍慧个还好,我们没答可以慢慢写,但是如果又有btn1.hint这写.
我们就可以用
btn1.caption:='';
btn1.hint:='';
等于
with btn1 do
begin
caption:='';
hint:='谈猛';
end;
其实就是为了省略前面部分.

with Control as TlistBox do
就是把Control当成TlistBox,这个是类型转换,然后就是with do的语句了塞.

Answer 2

with button1 do
begin
caption := 'mybutton';
top := 200;
end;

begin和end里的方法和属性，默认是属于button1的，除非你自己显式指定了所有者，哗局比如：
with button1 do
begin
caption := 'mybutton';
top := 200;
button2.caption = 'yourbutton';
end;
在这里的begin和end里的3条语句，1、2句是针对button1的，因为没有指明所有者，因此默认是button1的，乱配让第3条语句指明了button2，所以是针对button2的操作。

有什么不能理解的卖袭？里面的IF THEN ELSE END只是个判断语句而已

Answer 3

麻纯轮烦的写慎裤李法：
button1.caption := 'test';
button1.left := 12;
button1.top := 0;

使用宽迟with的简便写法：
with button1 do
begin
caption := 'test';
left := 12;
top := 0;
end;

应该明白了吧~