系统提示为错误
请问是为什么?真不明白!unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
edit1.Font.Name:=radiogroup1.Items(radiogroup1.itemindex);
end;end.
请问是为什么?真不明白!unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
edit1.Font.Name:=radiogroup1.Items(radiogroup1.itemindex);
end;end.
解决方案 »
- 为什么会报错啊。百思不得其解。。。救命啊~~ 救命啊~~
- 新建 程序员QQ群 ( 48203007 ) ,男女不限话题无限,欢迎大家加入!
- win98下登陆窗体按下退出按钮和关闭按钮都不能结束程序,而在win2000却可以?
- 征求“丢失更新”比较好的解决方案!!
- 谁能帮我生成这样一个TreeView?
- 如何修改TPreviewBox控件,他是Ehlib 3.2中的
- 一个没有窗体的程序如何在系统中以极少资源存在?并接收和转发消息?
- 如何编程实现备份SQLSERVER中的数据?
- 急:如何得到本级的IP地址??? 急急急急急急
- Internet上如何连接mssqlserver?用什么控件?ADO?Internet?Midas?
- 窗体的设计……??为何无法调试
- 如何关闭一个打开的excel文件,在线等,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
edit1.Font.Name:=radiogroup1.Items[radiogroup1.itemindex];
end;end.好了吗?
哈哈,也给我点分吧edit1.Font.Name:=radiogroup1.Items[radiogroup1.itemindex];