Delphi 6&7有一个控件TValueListEditor
解决方案 »
- 不知大家开发dll时候用得是什么工具呢?
- 在form中显示一个红色方块,当点击Button后使红色方块扩大一倍,这怎么实现??
- 一个关于定义类的问题
- 求好用的pq magic下载地址(for win2k Pro),50分
- 怎么装的DELPHI时老是出现错误啊
- 如何在delphi中调试 .dll.ocx 等文件(在线等)
- 我在delphi中测试ocx,可是修改了ocx后,该怎样重新加载此ocx呢,为何始终是老的?
- 大家觉得哪个打印报表控件更好用
- 300分送上,谁有FastReport2.4的注册码?
- 如何在NT下关机?
- 定义的菜单项的shortcut如何显示出来!一定给分!
- Application.MessageBox的参数
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
StrList: TStringList;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
StrList := TStringList.Create;
StrList.Add('aaa=111');
StrList.Add('bbb=222');
StrList.Add('ccc=333');
ComboBox1.Items := StrList;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeAndNil(StrList);
end;procedure TForm1.ComboBox1Change(Sender: TObject);
var
sName: string;
begin
sName := ComboBox1.Items.Names[ComboBox1.ItemIndex];
Edit1.Text := sName;
Edit2.Text := ComboBox1.Items.Values[sName];
end;end.
好了,结贴...