Difference between revisions of "CreateForm"
From SCAR Divi Manual
(Created page with "==Definition== <func>function CreateForm: TForm;</func> ==Availability== SCAR Divi 3.00 > Current ==Description== This function creates and returns a new form object of the [[T...") |
(No difference)
|
Revision as of 16:39, 25 June 2011
Definition
<func>function CreateForm: TForm;</func>
Availability
SCAR Divi 3.00 > Current
Description
This function creates and returns a new form object of the TForm class which is stored internally in the forms resource manager. It will be automatically freed if the script stops and you ahev not freed it yourself with FreeForm. You have to use FreeForm to destroy a form created with CreateForm, trying to achieve this any other way will result in errors.
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.
