I
infernor
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtDlgs, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('emp-photo/sanper46.bmp');
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
end.
////////////////////////////////////////////////
当按下TForm1.Button1 时,image1显示图象,再按下TForm1.SpeedButton1 时打开一文件,
再次按下TForm1.Button1 时出错:can not open emp-photo/sanper46.bmp,为什么???如何解决???
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtDlgs, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('emp-photo/sanper46.bmp');
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
end.
////////////////////////////////////////////////
当按下TForm1.Button1 时,image1显示图象,再按下TForm1.SpeedButton1 时打开一文件,
再次按下TForm1.Button1 时出错:can not open emp-photo/sanper46.bmp,为什么???如何解决???