PHP Code:
program TabsTest;
var
frmDesign: TForm;
Button1, Button2: TButton;
PageControl: TPageControl;
Page1, Page2: TTabSheet;
procedure button1click(sender: TObject);
begin
WriteLn('Yes - Working');
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 259;
frmDesign.Top := 132;
frmDesign.Width := 500;
frmDesign.Height := 350;
frmDesign.Caption := 'Aje'#39's Xtreme Teleporter [Form]';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
frmDesign.Position := poScreenCenter;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @button1click;
Button1.Left := 69;
Button1.Top := 61;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Testing...';
Button1.TabOrder := 8;
Button2 := TButton.Create(frmDesign);
Button2.Left := 69;
Button2.Top := 61;
Button2.Width := 75;
Button2.Height := 25;
Button2.Caption := 'Cancel...';
Button2.TabOrder := 8;
PageControl := TPageControl.Create(frmDesign);
PageControl.Parent := frmDesign;
PageControl.Align := alClient;
Page1 := TTabSheet.Create(frmDesign);
TabSheetCaption(Page1, 'Login Details');
Page1.PageControl := PageControl;
Page2 := TTabSheet.Create(frmDesign);
TabSheetCaption(Page2, 'Settings');
Page2.PageControl := PageControl;
Button1.Parent := Page2;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
function ShowFormModal: Boolean;
begin
Result := False;
if(frmDesign.ShowModal = mrOk)then Result := True;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign);
end.
There were a lot of errors. Check over and make sure you understand