菜鸟想问高手怎么让当前窗体的所有richedit控件的text都等于123(50)

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-13

• #1

怎么让当前窗体的所有richedit控件的text都等于123，在窗体有8个richedit控件，我想在点一个按纽的时候，所有的richedit控件的值都等于123，谢谢了

 

Y

yyw305

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-13

• #2

procedure TForm1.Button1Click(Sender: TObject);var i : Integer;begin for i := 0 to Self.ControlCount - 1 do begin if Self.Controls is TRichEdit then TRichEdit(Self.Controls).Text := '123'; end;end;

 

W

wcq1002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-13

• #3

procedure TForm1.Button1Click(Sender: TObject);var i : Integer;begin for i := 0 to ComponentCount - 1 do begin if Self.Components is TRichEdit then begin (Self.Components as TRichEdit).Text := '123'; end; end;end;

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-13

• #4

我经常用的, 抄给你啦: for i:=1 to 8 do TEdit(FindComponent('Edit'+IntToStr(i))).Text := '123';

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-08-13

• #5

procedure Tbb_qkgk.Button1Click(Sender: TObject);beginMySetCharFormat(RichEdit1, CFM_Superscript);end;这里的代码是对richedit1进行操作，我有8个RichEdit1控件，我想在点button1的时候，我的鼠标放到哪个richedit控件的时候，都可以进行和richedit同样的操作var i : Integer;begin for i := 0 to Self.ControlCount - 1 do begin if Self.Controls is TRichEdit then MySetCharFormat(TRichEdit(Self.Controls),CFM_Superscript); end;end;我这样做怎么提示不对呢，谢谢大家

 

W

wanglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-11-25

• #6

多人接受答案了。