I have an example below, if I have a page control and put something in it, the objects within show up just fine. If I create a page control and add a tabbed page and put something in that, it looks fine in the dialog edit but as soon as i run the script and it shows up, I don't see the tab I created or the objects within.
Code: Select all
//Set IGNORESPACES to 1 to force script interpreter to ignore spaces.
//If using IGNORESPACES quote strings in {" ... "}
//Let>IGNORESPACES=1
Dialog>Dialog1
object Dialog1: TForm
Left = 1602
Top = 123
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'CustomDialog'
ClientHeight = 593
ClientWidth = 468
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 48
Top = 32
Width = 250
Height = 13
Caption = 'This page control works fine because there is no tab '
end
object Label2: TLabel
Left = 56
Top = 280
Width = 314
Height = 13
Caption =
'As soon as I add a tab I get a blank box with no tab or radio gr' +
'oup.'
end
object PageControl1: TPageControl
Left = 45
Top = 56
Width = 289
Height = 193
TabOrder = 0
end
object MSRadioGroup1: tMSRadioGroup
Left = 90
Top = 99
Width = 185
Height = 105
Caption = 'MSRadioGroup1'
Items.Strings = (
'test1'
'test2'
'test3')
TabOrder = 1
Text = 'test1'#13#10'test2'#13#10'test3'#13#10
end
object PageControl2: TPageControl
Left = 51
Top = 295
Width = 289
Height = 193
TabOrder = 2
object TTabSheet
Caption = 'Page1'
object MSRadioGroup2: tMSRadioGroup
Left = 52
Top = 44
Width = 185
Height = 105
Caption = 'MSRadioGroup2'
Items.Strings = (
'test123'
'321test'
'test')
TabOrder = 0
Text = 'test123'#13#10'321test'#13#10'test'#13#10
end
end
end
end
EndDialog>Dialog1
show>dialog1,r
Thanks!
