Delphi问题，单选框控件问题
答案:2 悬赏:10 手机版
解决时间 2021-02-22 17:22
- 提问者网友：富士山上尢
- 2021-02-22 09:02
建立两个单选框组件，我选一个单选框能显示出一个图片image1，image2隐藏：选另一个image1隐藏，image2显示，这个要怎么编程啊？
最佳答案
- 五星知识达人网友：西风乍起
- 2021-02-22 10:10
以BMP图片为例，没完全实现你要的功能，公你参考：
procedure TForm1.RadioButton1Click(Sender: TObject);
var
pic:string;
BitMap:TBitMap;
begin
pic:='d:\picture\image1.bmp';
BitMap:=TBitMap.Create;
try
BItmap.loadfromfile(pic);
Canvas.Draw(150,80,bitmap);
finally
bitmap.Free;
end;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var
pic:string;
BitMap:TBitMap;
begin
pic:='d:\picture\image2.bmp';
BitMap:=TBitMap.Create;
try
BItmap.loadfromfile(pic);
Canvas.Draw(150,80,bitmap);
finally
bitmap.Free;
end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
var
pic:string;
BitMap:TBitMap;
begin
pic:='d:\picture\image1.bmp';
BitMap:=TBitMap.Create;
try
BItmap.loadfromfile(pic);
Canvas.Draw(150,80,bitmap);
finally
bitmap.Free;
end;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var
pic:string;
BitMap:TBitMap;
begin
pic:='d:\picture\image2.bmp';
BitMap:=TBitMap.Create;
try
BItmap.loadfromfile(pic);
Canvas.Draw(150,80,bitmap);
finally
bitmap.Free;
end;
end;
全部回答
- 1楼网友：平生事
- 2021-02-22 10:42
支持一下感觉挺不错的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯