True Rob Software engineer Wild Software Ltd Ph 03 338-1407 ----- Original Message ----- From: "Ross Levis" <[EMAIL PROTECTED]> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]> Sent: Sunday, November 03, 2002 7:14 PM Subject: Re: [DUG]: TPagecontrol ... disabling a particular page
> That won't work when using the left/right arrow keys on the keyboard to > change the tab, which some people use. > > Ross. > > -- Original Message -- > > 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; > > > > > -------------------------------------------------------------------------- - > 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/