先在窗体里加入。openpicturdialong控件。然后执行下面程序。
procedure TCreateTaxo1.BitBtn1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;end;procedure TCreateTaxo1.OpenPictureDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
AdoDataset.edit; ||使连接数据控件处于编辑状态
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);end;
procedure TCreateTaxo1.BitBtn1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;end;procedure TCreateTaxo1.OpenPictureDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
AdoDataset.edit; ||使连接数据控件处于编辑状态
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货