Difference between revisions of "FreeForm"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function FreeForm(const Form: TForm): Boolean; </source> ==Availability== SCAR Divi 3.00 > Current ==Description== This functi...") |
(No difference)
|
Latest revision as of 21:29, 27 June 2011
Definition
function FreeForm(const Form: TForm): Boolean;
Availability
SCAR Divi 3.00 > Current
Description
This function frees a form given by Form that was created with CreateForm, it returns true if the form was assigned and found in the forms resource manager.
Example
var
TestForm: TForm;
procedure TestForm_Init;
begin
TestForm := CreateForm;
with TestForm do
begin
Left := -1147;
Top := 335;
Caption := 'Test Form';
ClientHeight := 202;
ClientWidth := 304;
Color := clBtnFace;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Tahoma';
Font.Style := [];
OldCreateOrder := False;
PixelsPerInch := 96;
end;
end;
procedure TestForm_SafeInit;
var
v: TVariantArray;
begin
SetLength(v, 0);
ThreadSafeCall('TestForm_Init', v);
end;
function TestForm_ShowModal: Boolean;
begin
Result := TestForm.ShowModal = mrOk;
end;
function TestForm_SafeShowModal: Boolean;
var
v: TVariantArray;
begin
SetLength(v, 0);
Result := ThreadSafeCall('TestForm_ShowModal', v);
end;
begin
TestForm_SafeInit;
if TestForm_SafeShowModal then
WriteLn('Form returned modalresult ok');
FreeForm(TestForm);
end.
