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 <[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]> 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
> >
>
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe

Reply via email to