| 
 | 
	
    
 
 
发表于 2006-8-17 09:59:34
|
显示全部楼层
 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Shape1.Shape:=stRectangle; 
end; 
 
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
   ColorDialog1.execute; 
   Shape1.Brush.Color:=ColorDialog1.Color;   
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
         Shape1.Shape:=stRoundRect; 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
       Shape1.Shape:=stEllipse; 
end; 
 
initialization 
  {$I hfhf.lrs} 
 
end. 
                                       分析一下 哪里错了 程序不能运行5555555555555 它提示说出现什么非法字符“?” |   
 
 
 
 |