程序运行中，如何把窗体中所有同一类型的控件指定一个事件？如何获得当前具有焦点的控件名称与类型呢？(20分)

jxc163 · 2003-10-05

程序运行中，如何把窗体中所有同一类型的控件指定一个事件？如何获得当前具有焦点的控件名称与类型呢？ 当鼠标在一个标签上移动时，如果让一个与它关联的Checkbox也再现如在自身上移动的效果呢？（D7+XP+XPmain） 我想让窗体中所有的TCombobox类型的控件在具有焦点时，如果按下Alt+↓都会出现下拉框。

bjaman · 2003-10-05

程序运行中，如何把窗体中所有同一类型的控件指定一个事件？ ---------->>>>自定义一个过程，在此类控件的同一个事件里指定此过程名。 如何获得当前具有焦点的控件名称与类型呢？ ---------->>>>罗列窗体内全部控件名及类名（,有些控件是没有焦点的）。 procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin   for i := 0 to Form1.ComponentCount -1 do   begin     showmessage(Form1.Components.Name+ #13 +Form1.Components.ClassName);   end; end;

桦树皮 · 2003-10-05

在 form1的create事件中把button的onclick事件指给别的过程，可以这样 (findcomponent('button'+inttostr(i)) as Tbutton).onclick:=自定义的过程名，

jxc163 · 2003-10-16

bjaman老兄，有个问题你可能没有理解我的意思，你是想知道当前具有输入焦点的控件是什么控件？

huiyue · 2003-11-05

判断一下， if sender is TButton这样就可以确定了

bjaman · 2003-11-05

看这句: showmessage(Form1.Components.Name+ #13 +Form1.Components.ClassName); 其中后半句就是显示该控件的类型的呀！

bjaman · 2003-11-05

可以加一个判断条件：if Form1.Components.Focused then ... Focused属性是用来判断焦点的，可是也许你的窗体上的一些组件没有这个属性。 所以加那个条件的时候最好是再强制该组件为有焦点的组件，比如  if (Form1.Componets As TButton) and (Form1.Components.Focused) then ...

迷糊 · 2003-11-05

form1.activecontrol.classname;   form1.activecontrol.name

hongxing_dl · 2003-11-05

把同一类型的控件的Tag设置成相同 比如1代表button,2代表combobox,…… var   i:integer; begin   for i:=0 to componentcount-1 do   case components.tag of     1://代表TButton     (components as tbutton).事件名:=自定义的事件名;     2://代表TComboBox     3:;//以此类推   end; end; 至于获得焦点的控件判断如“迷糊”所说的一样（ActiveControl）

桦树皮 · 2003-11-05

通过RTTI也可以实现，这样来： uses Typinfo; procedure TForm1.Button1Click(Sender: TObject); var pp

propinfo; i:integer; begin for i:=0 to componentcount-1 do begin  pp:=getpropinfo(components,'onclick');   if pp<>nil then    if pp^.PropType^.Kind =tkmethod then    setmethodprop(components,pp,getmethodprop(button2,'onclick')); end; end; procedure TForm1.Button2Click(Sender: TObject); begin showmessage('执行成功'); end;

jxc163 · 2003-11-10

终于找到答案了，修改Forms就可以了.

程序运行中，如何把窗体中所有同一类型的控件指定一个事件？如何获得当前具有焦点的控件名称与类型呢？(20分)

jxc163

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

桦树皮

Unregistered / Unconfirmed

jxc163

Unregistered / Unconfirmed

huiyue

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

hongxing_dl

Unregistered / Unconfirmed

桦树皮

Unregistered / Unconfirmed

jxc163

Unregistered / Unconfirmed

Similar threads