做一个三角形面积计算,需要输入三条边.
点第一个edit1,点击的时候,自动切换成程序目录下的一张jpg图.
点第二个edit2时,又切换成另一行,以此类推.
直观的显示出你在输哪条三角形的边.(三角形的边会变红的三张图片).
不知道怎么调用图片.
第一次发帖,谢谢各位大神.

解决方案 »

  1.   

    Edit1Click:
    Image1.Picture.LoadFromFile('d:\1.bmp');
      

  2.   

    放上三个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;
    图片放在目录文件下