菜鸟问题，很容易得分

[abcddcba]

BCB6下编程，Form上有4个TEdit组件Edit0,Edit1,Edit2,Edit3，还有一个TListBox组件List，List上有4个Item，需要根据List上Item选择情况，判断目前应该使用哪个Edit。

TEdit*Edit[4]={Edit0,Edit1,Edit2,Edit3};
TEdit* CurrentPosition；//目前选择的TEdit组件
for(int i=0;i<4;i++)
if (List->Selected[i] ==true)
{ CurrentPosition=Edit[i];
CurrentPosition->SetFocus();
}
编译时通过，但是程序运行时出错

另外，如何判断光标现在在哪个Edit上呢?

[ccrun.com]

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
((TEdit *)FindComponent("Edit" +
String(ListBox1->ItemIndex)))->Text = "是我";
}

[chiengod]

int i;
for( i=0;i<4;i++)
if (ListBox1->Selected[i] ==true)
{
if(i==0)Edit0->SetFocus();
else if(i==1)Edit1->SetFocus();
else if(i==2)Edit2->SetFocus();
else Edit3->SetFocus();
}

[kmfangxun]

TEdit*Edit[4]={Edit0,Edit1,Edit2,Edit3};
TEdit* CurrentPosition;//目前选择的TEdit组件
for(int i=0;i<4;i++)
if (List->Selected[i])
{
CurrentPosition=Edit[i];
CurrentPosition->SetFocus();
}

// 上面运行没有出错
　

　//如何判断光标现在在哪个Edit上

TEdit * actEdit=dynamic_cast<TEdit*>(this->ActiveControl);

if( actEdit)
{
ShowMessage("Active TEdit is "+actEdit->Name);
}

[samchoy]

同意 ccrun(老妖)(www.ccrun.com) ( ) 信誉：122

稍微改一下:
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
((TEdit *)FindComponent("Edit" +
String(ListBox1->ItemIndex)))->SetFocus();
}

[abcddcba]

to ccrun
请问如果我要在另外一个Form2中用FindComponent找Form1中的组件呢？

[fkeumtdh]

学习

[ccrun.com]

to abcddcba(求不得):

那就在Form2中，用这个：

((TEdit *)Form1->FindComponent("Edit" +
String(ListBox1->ItemIndex)))->SetFocus();

[勉励前行]

TEdit *&Edit[4]={&Edit0,&Edit1,&Edit2,&Edit3};
TEdit* CurrentPosition；//目前选择的TEdit组件
for(int i=0;i<4;i++)
if (List->Selected[i] ==true)
{ CurrentPosition=Edit[i];
CurrentPosition->SetFocus();
}
試下吧。原因是你原來的代碼使用了野指針。

[勉励前行]

String(ListBox1->ItemIndex)) //這裡要判斷ListBox1->ItemIndex是否為-1 。否則容易產生異常。