|
发表于 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 它提示说出现什么非法字符“?” |
|