tpagecontrol


How can I change the orientation of the label on a TPageControl?

筅森魡賤 提交于 2020-01-23 10:42:43
问题 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

How can I change the orientation of the label on a TPageControl?

不问归期 提交于 2020-01-23 10:42:28
问题 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

How can I change the orientation of the label on a TPageControl?

拟墨画扇 提交于 2020-01-23 10:41:42
问题 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

How can I change the orientation of the label on a TPageControl?

半腔热情 提交于 2020-01-23 10:41:07
问题 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

Dynamically add tab sheets to page control and embed a form?

ⅰ亾dé卋堺 提交于 2020-01-12 06:57:26
问题 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

Dynamically add tab sheets to page control and embed a form?

随声附和 提交于 2020-01-12 06:57:08
问题 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

Delphi TPageControl not responding to clicks on tabs

和自甴很熟 提交于 2019-12-24 09:10:09
问题 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

How to allow or forbid user to enter tab in pagecontrol?

若如初见. 提交于 2019-12-12 12:20:47
问题 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

Make owner-drawn TPageControl tabs look nicer, like without owner-draw

核能气质少年 提交于 2019-12-10 10:48:26
问题 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

How can i change text color of themed TabSheet caption?

微笑、不失礼 提交于 2019-12-06 01:44:33
问题 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

工具导航Map