procedure TForm1.N2Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;procedure TForm1.Image1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;运行以后 选择图片 打开 没反应
begin
OpenDialog1.Execute;
end;procedure TForm1.Image1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;运行以后 选择图片 打开 没反应
解决方案 »
- 循环内创建对象怎么避免？
- delphi浏览器在原窗口打开
- dll 中的form 用什么命令关闭
- 求DELPHI 7的序列号!
- 求教关于dbgrid显示的问题
- delphi中如何格式化字串，即：
- Intercepor的问题，现在改了demo中的程序，加了加密程序，但是不成功，请赐教，100分
- 在线请求援助，100分相送，急,急,急,!!!制作安装程序，是Dbase数据库的！！！
- 如何编写insert的ORACLE8触发器
- 如何取得某个表中的某个字段的字段类型?
- 請教post，applyUpdates，commitUpdates，Commit的区别，最好有代码证明
- 【求助】新手学delphi看什么书
procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;
或者你点击image看看
-2 图片是jpg的
-3 第一次报错了，然后再来就是没反应了，至今没反应依然
begin
OpenDialog1.Execute;
end;上面没有任何意义。你点击image1控件，找个BMP肯定没有问题。
就在同一个Dialog面板下的