主页
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.025 c
4-22494年
GarryFV
2001-11-05 12:35
2002.01.08
困难的图形打印


14-22415年
Wetnose
2001-11-12 06:42
2002.01.08
WinXP的主题


14-22360年
RUS
2001-11-07 19:16
2002.01.08
互联网浏览器


1-22191年
stalker_boss
2001-12-16 02:50
2002.01.08
声音


1-22082年

2001-12-19 10:07
2002.01.08
如何将函数参数传递给DLL。





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