如何獲取此控件的名稱，比如說有edit3,edit4,...editn我怎么通過循環來取出這些控件的名稱，< >< >望回復

Using TComponent.Name.

我是說，在這個控件下獲取這個控件的NAME，如何獲取

< class="code"> procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin ShowMessage(TComponent(Sender).Name); for i := 0 to ComponentCount-1 do ShowMessage(Components[i].Name); end;

james_yu 你好: procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to Form1.ControlCount-1 do if Form1.Controls[i] is tEdit then ShowMessage(tEdit(Form1.controls[i]).Name); end; william說的是delphi的文言文 小弟說的是白話文

------
======================
昏睡~
不昏睡~
不由昏睡~

謝謝你們的幫助，不過，還有一個問題，我能在edit中取出NAME，但是我要設置他的enable屬性，找不到，用TComponent(Sender).enabled:=false或者說(Self.FindComponent(''edit_0'' IntToStr(n)) AS TEdit).enabled都不行，請指點。

TEdit(Sender).Enabeled := False;