edit控件如何实现点击换图片?
做一个三角形面积计算,需要输入三条边.
点第一个edit1,点击的时候,自动切换成程序目录下的一张jpg图.
点第二个edit2时,又切换成另一行,以此类推.
直观的显示出你在输哪条三角形的边.(三角形的边会变红的三张图片).
不知道怎么调用图片.
第一次发帖,谢谢各位大神.
[解决办法]
Edit1Click:
Image1.Picture.LoadFromFile('d:\1.bmp');
[解决办法]
放上三个edit控件，一个Image控件 然后
procedure TForm1.Edit1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'图片名字1');
end;
procedure TForm1.Edit2Click(Sender: TObject);
begin
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'图片名字2');
end;
procedure TForm1.Edit3Click(Sender: TObject);
begin
image1.Picture.LoadFromFile(extractfilepath(paramstr(0))+'图片名字3');
end;
图片放在目录文件下
