The following does it, I think there is a better way but cant remember what
it was.
//Stops selection of page 2
var
pt : TPoint;
begin
pt := ScreenToClient(Mouse.CursorPos);
if (PageControl.IndexOfTabAt(pt.X, pt.Y) = 2) then begin
AllowChange := False;
end;
Rob
Software engineer
Wild Software Ltd
Ph 03 338-1407
----- Original Message -----
From: "Stacey Verner" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Friday, November 01, 2002 3:28 PM
Subject: RE: Re: [DUG]: TPagecontrol ... disabling a particular page
How do you tell which page you are changing to?
Stacey
> -----Original Message-----
> From: Robert Martin [mailto:rob@;wildsoft.co.nz]
> Sent: Friday, 1 November 2002 3:17 p.m.
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: TPagecontrol ... disabling a particular page
>
>
> By adding code to the OnChanging event you should be able to
> stop the user selecting a particular page.
>
> Rob
>
> Software engineer
> Wild Software Ltd
> Ph 03 338-1407
> ----- Original Message -----
> From: "Stacey Verner" <[EMAIL PROTECTED]>
> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> Sent: Friday, November 01, 2002 3:16 PM
> Subject: RE: [DUG]: TPagecontrol ... disabling a particular page
>
>
> TabSheet.Enabled := False is much like Panel.Enabled :=
> False. You can't touch any of the controls, bot otherwise all
> else is the same. To Tab to look disabled you have to do
> owner draw stuff, or look at third party controls. To make it
> so that the user can see, but can't get to the disabled page
> is another story entirely. You prabably have to look at third
> party controls to do that.
>
> Stacey
>
> > -----Original Message-----
> > From: James Low [mailto:James.Low@;bopdhb.govt.nz]
> > Sent: Friday, 1 November 2002 3:13 p.m.
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: TPagecontrol ... disabling a particular page
> >
> >
> >
> > D5, Win 2000 Pro ...
> >
> > I have a form with a TPageControl (named TS). This has 6 pages. For
> > some reason ts.Pages[4].Enabled := false appears to do absolutely
> > nothing. ts.Pages[4].Tabvisible, by contrast does as expected and
> > hides the troublesome page. I expect ts.Pages[4].Enabled :=
> > false to dim the page and prevent it becoming the activepage
> > but perhaps I expect too much??
> >
> > Any thoughts before I dig a little deeper.
> >
> > Thanks
> >
> >
> > James
> >
> > Notice of Legal Status and Confidential Information: This
> electronic
> > mail message and any accompanying attachments may contain
> information
> > that is privileged and CONFIDENTIAL. If you are not the intended
> > recipient you are advised that any use, review, dissemination,
> > distribution or reproduction of the information is strictly
> prohibited
> > and may be unlawful. If you have received this document in error,
> > please notify the sender immediately and destroy the message.
> > --------------------------------------------------------------
> > -------------
> > New Zealand Delphi Users group - Delphi List -
> > [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> >
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
>
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
