[DUG] TPageControl tab re-ordering. was: TPageControl Interesting Obser vation D2007

[Steve Peacocke]

Steve - "PageIndex", that was it (now I'm back at my computer).

Something like...

procedure TForm1.Button1Click(Sender: TObject);
begin
    PageControl1.ActivePage.PageIndex := PageControl1.ActivePage.PageIndex -1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    PageControl1.ActivePage.PageIndex := PageControl1.ActivePage.PageIndex +1;
end;


Steve
-- 
Steve Peacocke
http://stevepeacocke.blogspot.com/

On 28/08/07, Steve Peacocke <steve.peacocke at gmail.com> wrote:
> Gidday Steve,
>
> The TMS Component can do drag and drop of tab orders. However, you can
> always change the order of a tab by changing the property of the
> TabSheet that tells what order it is in (yea, well, sorry, I don't
> have Delphi open at this time and can't remember the property name,
> but you'll get the idea). You can then program your button to change
> that number on the currently selected tab every time it is clicked.
>
> Steve
>
> --
> Steve Peacocke
> http://stevepeacocke.blogspot.com/
>
>
> On 28/08/07, Stephen Barker <Steve at webdata.co.nz> wrote:
> >
> > Sorry to hijaak the original thread.
> >
> > What I meant was they want to have a couple of buttons to move the current
> > tab to a different position within the list of tabs. Preferably a component
> > with these buttons built in and sitting to the right of the tabs, or even be
> > able to drag and drop a tab to a diff position, just like dbgrid columns
> > can.
> >
> > regards,
> > Steve
> >
>