I write what is underneath and it doesn't work..
Code:
program TestForm;
var
All the var stuff(I got it)
Procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
Procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 100;
Label1.Top := 21;
Label1.Width := 32;
Label1.Height := 13;
Label1.Caption := 'Label1';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 362;
Button1.Top := 294;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Button1';
Button1.TabOrder := 8;
GroupBox1 := TGroupBox.Create(frmDesign);
GroupBox1.Parent := frmDesign;
GroupBox1.Left := 133;
GroupBox1.Top := 90;
GroupBox1.Width := 195;
GroupBox1.Height := 121;
GroupBox1.Caption := 'GroupBox1';
GroupBox1.TabOrder := 9;
freezes := TMemo.Create(frmDesign);
freezes.Parent := frmDesign;
freezes.Left := 436;
freezes.Top := 102;
freezes.Width := 187;
freezes.Height := 103;
freezes.Lines.Add('freezes');
freezes.Lines.Add('I know how to change');
freezes.Lines.Add('all the stuf');
freezes.Lines.Add('but im just seeing');
freezes.Lines.Add('how to make it not freeze');
freezes.TabOrder := 10;
end;
begin
SafeInitForm;
SafeShowFormModal;
end.
Just doesn't work then I changed one thing and it didn't run the stuff just the old thing I get where it freezes.. Please help thanks
__________________________________________________ _______________
Scripts made > 5
Scripts Work > 4
Scripts Sold > 0