一个小问题,各位大哥帮下我了!谢谢了!(10)

  • 主题发起人 主题发起人 netsen
  • 开始时间 开始时间
N

netsen

Unregistered / Unconfirmed
GUEST, unregistred user!
我的目的是要改变Memo1 里面的字体的对齐方式,TAlignment是枚举类型我定义如下:type TAlignment = (taLeftJustify,taRightJustfy,taCenter);在RadioGroup三个按钮分别是左对齐,居中,右对齐 它的的OnClick事件我写的如下,procedure TForm1.RadioGroup1Click(Sender: TObject);begin case RadioGroup1.ItemIndex of 0: Memo1.Alignment :=taLeftJustify; 1: Memo1.Alignment :=taCenter; 2: Memo1.Alignment :=taRightJustify;end; 结果怎么编译不了,我用的是Delphi2005编译环境,为什么呢?
 
请别定义TAlignment,因为Classes单元中已经定义了,除非你这样写:procedure TForm1.RadioGroup1Click(Sender: TObject);begin case RadioGroup1.ItemIndex of 0: Memo1.Alignment :=Classes.taLeftJustify; 1: Memo1.Alignment :=Classes.taCenter; 2: Memo1.Alignment :=Classes.taRightJustify;end;
 
楼上的正解,TAlignment不用重新定义~~
 
thank you !
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
489
import
I
后退
顶部