2011-09-30 78 views
0

我在delphi 7中创建了TLabel和TCombobox的打包对象(TMyComponent)。 我创建了一个TMyComponent的动态数组(MyArray)。现在在添加按钮上单击我已经增加了MyArray的长度并创建了TLabel和TCombobox的对象并显示在屏幕上。如果我添加了5个组件,我们如何获得Myaaray的当前选定组件意味着如果我从屏幕中选择了第三个组件,那么我如何获得值3作为回报?感谢您的帮助delphi动态数组

回答

3

我认为你正在寻找这样的功能:

function FindMyComponentIndex(
    Selected: TMyComponent; 
    const Components: array of TMyComponent 
): Integer; 
begin 
    for Result := low(Components) to high(Components) do 
    if Components[Result]=Selected then 
     exit; 
    Result := -1; 
end; 

我相信这将是显而易见如何调用该函数。

+0

谢谢大卫。我会尝试。我们可以在TComboBox的OnSelect事件中传递整数值吗? – Nalu

+0

我不明白那个问题 –

+0

TCombobox的Onselect事件有参数(发送者:TObject)。我们可以通过任何其他参数与发件人? – Nalu