如何在StringGrid中做出下拉框？

[lyq81404]

如何在StringGrid中做出下拉框？

[czxwm]

关注

[chnlog]

到www.ffsoft.net/index.htm上去看看

[ljianq]

使用TMS的控件方便，在http://www.51delphi.com/有下载。

[domustdo]

在StringGrid的cell中嵌入ComboBox
void __fastcall TForm1::FormCreate(TObject *Sender)
{
...
pComboEditor = new TComboBox(this);
pComboEditor->Parent = this;
pComboEditor->Visible = false;
pComboEditor->Style = csDropDownList;
pComboEditor->OnChange = ComboEditorChange;
...
}

void __fastcall TForm1::PlaceComboEditor(void)
{
TRect Rect = StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row);
pComboEditor->Top = StringGrid1->Top;
pComboEditor->Left = StringGrid1->Left;
pComboEditor->Text = EmptyStr;
pComboEditor->Top = pComboEditor->Top + Rect.Top +
StringGrid1->GridLineWidth;
pComboEditor->Left = pComboEditor->Left +
Rect.Left + StringGrid1->GridLineWidth+1;
pComboEditor->Height = (Rect.Bottom - Rect.Top) + 1;
pComboEditor->Width = (Rect.Right - Rect.Left) + 0;
pComboEditor->Visible = true;
pComboEditor->SetFocus();
}