M ml.guo Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-23 #1 在TPanel 控件中,可在其上放置其它如按钮等控件,现在从它继承的新控件TNewPanel中,要在往里面增加其它的控件时对增加的控件作一些动作处理,问如何知道增加了控件?
S strongburn Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-24 #2 我的一点思路： 在增加控件时应该是鼠标操作吧，可以用消息+当前控件（容器控件）是谁+容器控件的componentcount（当接收消息时检测）是否增加来判断是否增加了新控件。
B bbscom Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-24 #5 procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin for i := 0 to self.componentCount - 1 do if self.components is TEdit then // 要知道是什麼控件的類型，寫在這裡。 ShowMessage(self.components.ClassName); end;
procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin for i := 0 to self.componentCount - 1 do if self.components is TEdit then // 要知道是什麼控件的類型，寫在這裡。 ShowMessage(self.components.ClassName); end;
S simonqiang Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-24 #6 检查 Panel1.ControlCount 如果多过之前的就是增加的新的空间
小 小雨哥 Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-24 #7 呵呵，他是在写控件啊！控件里没有 Button OnClick ！
S strongburn Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-24 #8 难怪小雨哥 “唉~~~ ！” 怪我学的太潦草，不知有Notification。
