主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

在StringGride中创建一个下拉列表,其类型为DBGride中的Lookup 找到类似的分支


Кто нибудь делал?   (2001-12-14 08:12) [0]

我尝试使用BorderStyle = bsNone创建一个表单,并且ListBox工作,但在它出现时,表单标题变为非活动状态。
使用组件时,它们不能超越表单。
也许有人已经克服了这一点。



Владислав   (2001-12-14 08:47) [1]

可以试试上下文菜单吗?



Кто нибудь делал?   (2001-12-14 09:04) [2]

谢谢弗拉迪斯拉夫。
我已经考虑过了:重绘一个重绘,你需要看起来像一个普通的下拉列表。
也许你可以问窗口什么样的风格,以便它不会停用主要的?



Владислав   (2001-12-14 10:42) [3]

我可以给你一个小例子(急速)。 也许某事会有所帮助。



Mark_a   (2001-12-15 11:16) [4]

表单必须具有StringGrid和ComboBox。
使用以下代码:

procedure TForm1.FormCreate(Sender:TObject);
开始
{组合框的高度“并没有改变,所以代替组合框”a
我们将改变网格线的高度“a!}
StringGrid1.DefaultRowHeight:= ComboBox1.Height;
StringGrid1.Cells [3,0]:=“这是一个列表”;
{隐藏组合框}
ComboBox1.Visible:= False;
ComboBox1.Items.Add(“第一项”);
ComboBox1.Items.Add(“第二段”);
结束;

procedure TForm1.ComboBox1Change(Sender:TObject);
开始
{将选定的值从ComboBox传输到网格}
StringGrid1.Cells [StringGrid1.Col,StringGrid1.Row]:=
ComboBox1.Items [ComboBox1.ItemIndex];
ComboBox1.Visible:= False;
StringGrid1.SetFocus;
结束;

procedure TForm1.StringGrid1SelectCell(Sender:TObject; ACol,
ARow:整数; var CanSelect:Boolean);
VAR
R:TRect;
开始
if((ACol = 3)AND(ARow <> 0))然后
开始
{ComboBox的宽度和位置必须匹配
cell StringGrid}
R:= StringGrid1.CellRect(ACol,ARow);
R.Left:= R.Left + StringGrid1.Left;
R.Right:= R.Right + StringGrid1.Left;
R.Top:= R.Top + StringGrid1.Top;
R.Bottom:= R.Bottom + StringGrid1.Top;
ComboBox1.Left:= R.Left + 1;
ComboBox1.Top:= R.Top + 1;
ComboBox1.Width:=(R.Right + 1) - R.Left;
ComboBox1.Height:=(R.Bottom + 1) - R.Top;
{显示组合框}
ComboBox1.Visible:= True;
ComboBox1.SetFocus;
结束;
CanSelect:= True;
结束;



vlv   (2001-12-15 11:43) [5]

在RX库中有类似TPopupWindow的类......



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.022 c
3-21968
olban
2001-12-05 11:20
2002.01.08
QuantumGrid


4-22512
雅罗斯拉夫
2001-10-31 13:17
2002.01.08
如何在API上创建弹出菜单


6-22314
SDS
2001-06-10 23:58
2002.01.08
关于POST方法的问题


4-22478
罗斯
2001-08-28 16:53
2002.01.08
开始菜单


3-21986
梦想者
2001-12-06 15:43
2002.01.08
打开的DataSet上不允许使用数据字段





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский