SCAR Code:
var
frmMain: TForm;
UserList: TCheckListBox;
procedure Panel2Clic(Sender: TObject; Index: Integer);
begin
end;
procedure InitForm;
begin
frmMain := TForm.Create(nil);
frmMain.SetBounds({L} 100, {T} 100, {W} 600, {H} 400);
UserList := TCheckListBox.Create(frmmain);
UserList.Parent := frmmain;
UserList.SetBounds(24,40,225,241);
UserList.OnItemClick := @Panel2Clic;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmMain.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
try
SafeInitForm;
SafeShowFormModal;
finally
frmMain.Free;
except
Writeln(ExceptionToString(ExceptionType, ExceptionParam));
end;
end.
Anyone know what's wrong with this?