很简单的delphi初学者有关问题

很简单的delphi菜鸟问题
想修改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;
[解决办法]
上面有答案了。

查看更多 下一篇