你可以设计一个界面专门用于添加照片,然后用loadfromfile的方法。 begin tu := edit1.text; if (tu = '*.bmp') or (tu = '*.jpg') or (tu = '*.*') or (tu = '*.wmf') then begin showmessage('没有选中照片,请重新选择'); end else if (FileExt <> '.BMP') then begin showmessage('你选的不是照片文件,请重选!'); end else begin renshiform.dbimage1.Picture.LoadFromFile(tu); renshiform.dbimage1.loadpicture; renshiform.Enabled := true; close; end; end;
begin
tu := edit1.text;
if (tu = '*.bmp') or (tu = '*.jpg') or (tu = '*.*') or (tu = '*.wmf') then
begin
showmessage('没有选中照片,请重新选择');
end
else
if (FileExt <> '.BMP') then
begin
showmessage('你选的不是照片文件,请重选!');
end
else
begin
renshiform.dbimage1.Picture.LoadFromFile(tu);
renshiform.dbimage1.loadpicture;
renshiform.Enabled := true;
close;
end;
end;