Question

delphi 求标示显示控件

delphi有无这样的控件，比如我在imagelist加载了几个图片：“合格”“危险”“警告”，有无什么控件的属性里imageindex；这样我就可以当我的edit内的数值在一定范围时，此控件显示“合格”；当数据超过范围时显示“警告”，超限时显示“危险”，有点急，谢谢。
恩，是的，我的和fyfufu的想法一样，但我有很多这样的判断；谁有知道的再告诉我下有没更好的

Answer 1

动态的加载
-----------------------------
声明几个图片文件名的常量

const FilePic1='D:\Img1.jpg';
const FilePic2='D:\img2.jpg';
const filePic3='D:\img3.jpg';
begin
case StrToInt(edt1.Text) of
0..60 : img1.Picture.LoadFromFile(FilePic1);
61..80: img1.Picture.LoadFromFile(FilePic2);
81..100:img1.Picture.LoadFromFile(FilePic3);
end;
end;

Answer 2

imagelist.GetIcon(15, Image1.Picture.Icon); //15是要加载的序号
直接用 Image1.Picture.Graphic就可以了

Answer 3

TreeView 这个控件里面有imageindex

不知道是不是你想要的

Answer 4

其实你可以这样做：
加3个image：分别为：image1，image2，image3 里面分别导入 合格，危险，警告的图片。
程序运行时他们的visable设置为false；
if edit1.text>= a and edit1.text<=b then
begin
image1.visable=true;//合格
image2.visable=false;//
image3.visable=false;//
end
if edit1.text>= a1 and edit1.text<=b1 then
begin
image2.visable=true; //危险
image1.visable=false;
image3.visable=false;
end
if edit1.text>= a then
begin
image3.visable=true;//警告
image1.visable=false;
image2.visable=false;
end
你说的用imageindex貌似用过，不过想不起来。这个也只是参考而已，如果图片多了用这样的笨方法是不可取的。

昨天回去想了下下面的方法可以试下：
1.添加一个image1，不需要放图片
2.edit1
3.在edit1的onchange事件中添加如下代码：
begin
if Edit1.Text<>'' then

begin
if (StrToInt(Edit1.Text)>=0)and(StrToInt(Edit1.Text)<=99 )then
begin
Image1.Picture.LoadFromFile('C:\Documents and Settings\Administrator\桌面\配药图片\12.jpg');
end;
if (StrToInt(Edit1.Text)>=100)and(StrToInt(Edit1.Text)<=999 )then
begin
Image1.Picture.LoadFromFile('D:\My Documents\My Pictures\爱人.jpg');
end;
if (StrToInt(Edit1.Text)>=1000)then
begin
Image1.Picture.LoadFromFile('D:\My Documents\My Pictures\备份1.jpg');
end;
end
else
Edit1.text:='0';
end;
这样就可以根据edit1中值的多少来显示不同的图片，上面的图片路径是我的，只需要改成你的就行，edit1的值范围也是你自己来设定，这只是一个思路，一些细节的东西还要你自己去完善！！！！