5,386
社区成员
发帖
与我相关
我的任务
分享急！！！请问如何在ListView控件的列上加上Combobox的下来功能？？？
急！！！请问如何在ListView控件的列上加上Combobox的下来功能？？？
...全文
请发表友善的回复…
发表回复
hawk_js 2003-10-27
- 打赏
- 举报
procedure TfrmuMulCond.sgCondSelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var R:TRect;
begin
R:=sgCond.CellRect(ACol,ARow);
sgCond.SetFocus ;
sgCond.DefaultRowHeight:=cbxGX.Height;
if ACol=COL_MATH then //======== 列——数学关系=================
begin
cbxGX.Left:=sgCond.Left+R.Left+1;
cbxGX.Top:=sgCond.Top+R.Top+1;
cbxGX.Width:=R.Right-R.Left;
cbxGX.Visible :=True;
cbxGX.Items.Clear ;
cbxGX_ItemsAdd(cbxGX,sgCond.Cells[0,ARow]);
end
else if ACol=COL_NEXT then //======== 列——后续关系
。。。
ARow: Integer; var CanSelect: Boolean);
var R:TRect;
begin
R:=sgCond.CellRect(ACol,ARow);
sgCond.SetFocus ;
sgCond.DefaultRowHeight:=cbxGX.Height;
if ACol=COL_MATH then //======== 列——数学关系=================
begin
cbxGX.Left:=sgCond.Left+R.Left+1;
cbxGX.Top:=sgCond.Top+R.Top+1;
cbxGX.Width:=R.Right-R.Left;
cbxGX.Visible :=True;
cbxGX.Items.Clear ;
cbxGX_ItemsAdd(cbxGX,sgCond.Cells[0,ARow]);
end
else if ACol=COL_NEXT then //======== 列——后续关系
。。。
Linux2001 2003-10-17
- 打赏
- 举报
动态生成啊！确定位置然后动态生成这个控件
jianxin_js 2003-10-17
- 打赏
- 举报
？
