很简单的delphi初学者有关问题
很简单的delphi菜鸟问题
想修改TOpenDialog控件以支持多选,请问代码怎么写,这样写为何是错的?
------解决方案--------------------
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
....
for i:=0 to OpenDialog1.Files.Count-1 do
xx.LoadFormFile(OpenDialog1.Files.Strings[i]);
------解决方案--------------------
OpenDialog1.Options := [ofAllowMultiSelect];
或
OpenDialog1.Options := OpenDialog1.Options + ofAllowMultiSelect;
------解决方案--------------------
上面有答案了。
想修改TOpenDialog控件以支持多选,请问代码怎么写,这样写为何是错的?
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Options := ofAllowMultiSelect; //错误
if OpenDialog1.Execute then
begin
Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
end;
end;
------解决方案--------------------
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
....
for i:=0 to OpenDialog1.Files.Count-1 do
xx.LoadFormFile(OpenDialog1.Files.Strings[i]);
------解决方案--------------------
OpenDialog1.Options := [ofAllowMultiSelect];
或
OpenDialog1.Options := OpenDialog1.Options + ofAllowMultiSelect;
------解决方案--------------------
上面有答案了。