tpagecontrol

问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

问题 I'm new to Delphi (again - I used Delphi back in 1994). I now have Delphi 2009 Pro. Coming from Java, I find the object inheritance very obscure. My users want tabbed pages with the tabs on the left. But, the TPageControl doesn't allow the tab label direction or orientation to be changed. They want the words on the tabs to read top to bottom with the letters rotated so they are in a "normal" orientation. With the tabs on the left the labels read from the bottom up with the letters rotated 90

问题 I'm working on a module which consists of a page control. By default, this page control ( TPageControl ) shouldn't have any tab sheets ( TTabSheet ), but upon initialization, it should dynamically insert these pages and embed a form inside of it. The issue comes with knowing how to insert a tab sheet into the page control. How do I create this? And once it's created, along with the forms inside each one, how do I iterate through them to destroy the forms? 回答1: 1. How to dynamically create a

问题 I'm working on a module which consists of a page control. By default, this page control ( TPageControl ) shouldn't have any tab sheets ( TTabSheet ), but upon initialization, it should dynamically insert these pages and embed a form inside of it. The issue comes with knowing how to insert a tab sheet into the page control. How do I create this? And once it's created, along with the forms inside each one, how do I iterate through them to destroy the forms? 回答1: 1. How to dynamically create a

问题 I have an app with a TPageControl on the main form. The pagecontrol has several tabs. The app can be minimized to a tray icon. Sometimes after running minimized for a while, when I restore the main window (via a right-mouse click on the tray icon), the tab that was last displayed is displayed, but I can't select any other tabs! If I click on another tab, the appearance changes so that tab then appears to be the active one (i.e the tab itself moves to the front of the row of tabs), but the

问题 I want to restrict users (based on special condition) to open a tab or not in a page control. ie, the user can click on the tab but it will not be displayed to him. Instead, a message will show to him that " he don't have the access right to see such tab ". On what event I should write the checking code, and what tab property (of TPageControl component) will allow/block user to enter such tab? 回答1: In an ideal world you would set AllowChange to False from the OnChanging event to block a page

问题 I use Delphi7, PageControl with owner-draw. I can't get so plain and nice look of tabs, as I see on not-owner-drawn PageControls. What's bad: when using owner-draw, I can't draw on "entire" tab header area, small 1-2px frame around tab header is painted by OS. 1) Delphi not owner-draw, look is OK too (XPMan used): 2) Delphi owner-draw, you see not entire tab header can be colored (XPMan used): I draw current tab with blue and others with white, here. Only example. Code: procedure TForm1

问题 Good Day! I need to change text color of caption of some TabSheet in TPageControl. Something like this on picture I know how it can be done using OnDrawTab. But if i enabled OwnerDraw, decoration of Windows XP Theme disappears. That's why i try to draw this decoration manually. This is how i tried to do this: procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var FRect: TRect; Text: string; begin FRect := Control.TabRect