SRL Archive - Help

right now i have a strange problem
if i do this

    TabPages[i] := TTabSheet.Create(frmDesign);
    TabPages[i].Caption := 'Tab ' + Inttostr(i); // The Caption of the title
    Tabpages[i].PageControl := PageControl;  // We Must Identify are Page Control

then the form works perfectly
but if i do this

    TabPages[i] := TTabSheet.Create(frmDesign);
    with TabPages[i] do
    begin
      Caption := 'Tab ' + Inttostr(i); // The Caption of the title
      PageControl := PageControl;  // We Must Identify are Page Control
    end;

it gives me the following error

[Runtime Error] : Exception: Control '' has no parent window in line 152 in script C:\Users\Thomas\Desktop\MSI Form.scar

its a strange error and i have no idea what is causing it

~shut

Is pagecontrol the correct name of the TPageControl? Also, is the parent of the TPageControl frmDesign?

All I can think of.. :/

From: Shuttleu
right now i have a strange problem
if i do this

    TabPages[i] := TTabSheet.Create(frmDesign);
    TabPages[i].Caption := 'Tab ' + Inttostr(i); // The Caption of the title
    Tabpages[i].PageControl := PageControl;  // We Must Identify are Page Control

then the form works perfectly
but if i do this

    TabPages[i] := TTabSheet.Create(frmDesign);
    with TabPages[i] do
    begin
      Caption := 'Tab ' + Inttostr(i); // The Caption of the title
      PageControl := PageControl;  // We Must Identify are Page Control
    end;

it gives me the following error

its a strange error and i have no idea what is causing it

~shut

First example does: A.B := C;
Second example does: A.B := A.B;

From: Wizzup?
First example does: A.B := C;
Second example does: A.B := A.B;

errr… sorry? :confused:

~shut

From: Shuttleu
errr… sorry? :confused:

~shut

Notice how in the second example you have PageControl := PageControl which basically means you're setting TabPages.PageControl to itself and therefore to nil since the intepreter can't distinguish between TabPages.PageControl and the var PageControl. The error arises because its trying to load a Tab that has no parent.

Solution: Rename the variable PageControl to something else.

From: ZephyrsFury
Notice how in the second example you have PageControl := PageControl which basically means you're setting TabPages.PageControl to itself and therefore to nil since the intepreter can't distinguish between TabPages.PageControl and the var PageControl. The error arises because its trying to load a Tab that has no parent.

Solution: Rename the variable PageControl to something else.

ahhh… i see

ima do it now

~shut

EDIT: it works now, thanks
this is what i have

    TabPages[i]:= TTabSheet.Create(frmDesign);
    with TabPages[i] do
    begin
      Caption := 'Player ' + Inttostr(i);
      PageControl := VarPageControl;
    end;

nice job

From: Pure
nice job

you havent posted since 2007 and you post here… why…? :confused:

~shut

We should drop the 10 posts Junior Member thing…

From: Wizzup?
We should drop the 10 posts Junior Member thing…

i agree, it creates too much spam, for example, 3 posts above this one

~shut

From: Shuttleu
i agree, it creates too much spam, for example, 3 posts above this one

~shut

Your post was also spam.

Also, the limit is already removed. Jr member is 10 posts and 3 months activity. There is also no need to become a Jr member unless you want to be involved in the community; since all the scripts are now public.

I'm pretty sure we already dropped it…

Back on topic I'm having a bit of issues with Tabs. Because I'm Lazy I'm going to attempt to hijack this thread.

So Curious, when I'm deleting tabs, how do I delete the currently active tab? I've tried

I := tab[tab_count].tabIndex;
tab.free;

but that doesn't work. And,

tab[tab_count].free

just deletes the first tab instead of the last, or the one selected. By the way tab_Count is how many tabs there presently is.

Swap the tab to delete with the last one. Free the last one, then shorten the array.

I think thats how I used to do it..

From: Nava2
Swap the tab to delete with the last one. Free the last one, then shorten the array.

I think thats how I used to do it..

okay cool. Thanks :)

Edit: How do you get the current Tab Index?

So much solutions in so little time!

In Delphi you can use "Self" to refer to the subject in the with command.

TabPages[i] := TTabSheet.Create(frmDesign);
with TabPages[i] do
begin
  Caption := 'Tab ' + Inttostr(i); // The Caption of the title
  Self.PageControl := PageControl;  // We Must Identify are Page Control
end;

~Ron

for current tab index, is it not just pagecontrol.activepageindex or something of that sort? And do you even need to free it? In making the array one shorter, doesnt that do the same thing?

EDIT: oh wait, if you're using a TTabControl, then tabcontrol.tabindex will do so.

He already got this sorted out haha.

Dan you are correct.