组件并没有返回值。 OpenDialog的调用方法: if OpenDialog.Execute then ...你只要在组件中发布一个 Boolean类型的函数,可以得到同样的结果。>>应用时只需要调用一个函数,然后弹出窗口,用户进行操作后点“确定”窗口关闭并返回一个值, 定义函数: function f():string; begin with TForm.Create(Application) do begin if ShowModal=mrOk then Result := ... end; end;
OpenDialog的调用方法:
if OpenDialog.Execute then
...你只要在组件中发布一个 Boolean类型的函数,可以得到同样的结果。>>应用时只需要调用一个函数,然后弹出窗口,用户进行操作后点“确定”窗口关闭并返回一个值,
定义函数:
function f():string;
begin
with TForm.Create(Application) do
begin
if ShowModal=mrOk then
Result := ...
end;
end;