自由形式

自由形式
这是自动生成的可用窗体代码 ( 已重命名 ):
unit _FreeForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
uniGUIClasses, uniGUIForm;
type
TFreeForm = class(TUniForm)
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses
uniGUIApplication;
{KaTeX parse error: Expected 'EOF', got '}' at position 8: R *.dfm}̲ end. 这个自由形式和申请…R *.dfm}
function GetText : string;
var
frm : TFreeForm;
begin
frm := TFreeForm.Create(uniGUIApplication.UniApplication);
if frm.ShowModal = mrOk then
Result := frm.Text
else
Result := ‘’;
end;
{ TFreeForm }
function TFreeForm.GetText: string;
begin
Result := edtText.Text;
end;
end.
自由窗体的所有者不是全局应用程序 , 而是处理当前会话的实例。
还请注意 , 窗体 (frm) 会自动释放 (FreeOnClose 为 true, 并将值分配给 ModalResult) 。
变量本身将在超出范围后释放 ( 当退出函数 GetText 时 ) 。
当用户对像 GetText 这样的服务感兴趣而不是在表单上时 , 自由形式很方便。 如果是这种情况 , 该窗体将始终创建并作为服务实现的一部分发布 , 并且不应暴露
在程序的其余部分中。 程序期待的只是服务。