tpagecontrol

4熱度

2回答

我已經使用在本實施例中How to implement a close button for a TTabsheet of a TPageControl提供的代碼來繪製一個關閉按鈕到的PageControl的每個標籤頁和我已經替換爲碼內樣式服務ThemeServices和應用樣式關閉時按鈕不會顯示，也不會反應。任何人都可以指出我解決這個問題的另一條路徑。謝謝！這是OnDrawTab事件的代碼： p

0熱度

1回答

組件添加到TcxTabSheet時TcxPageControl在TFRAME

託管我建立不是在運行時顯示的可重複使用的TFrame含有TcxPageControl。這個想法是框架被放到窗體上，然後我可以添加特定於該窗體的頁面。這工作得很好，我能順利通過設計和運行時，這些網頁出現選項卡中添加頁面。但是，問題是丟棄在TcxTabSheet上的任何組件都不會。如果我添加在幀本身的網頁（即，Base幀，而不是一個滴到形式）和下降部件上，這些節目。但是，如果我將組件放到同一個頁面

0熱度

1回答

如何檢查標籤頁都在TPageControl

已經創建創建動態在運行時tabsheets和使用這段代碼放在裏面一個框架： procedure TForm1.Button2Click(Sender: TObject); var TabSheetG: TTabSheet; begin TabSheetG := TTabSheet.Create(PageControl1); TabSheetG.Caption :=

2熱度

1回答

VCL樣式可能與繪圖滾動條錯誤

我在我的主窗體（form1在我的圖像）的中心有一個pagecontrol，我想打開停靠到pagecontrol的其他窗體。因爲我的子窗體上有很多控件，所以我需要垂直和水平滾動條（在子窗體上我有活動的滾動條選項），但這裏有一個問題：當我使用VCL樣式時，我的滾動條並未繪製應該是，他們是無法使用的。這是VCL樣式的一種錯誤嗎？

0熱度

2回答

如何安全地將Tabsheet添加到TIdCmdTCPServer OnConnect事件中的PageControl中？

我要動態添加Tabsheet到PageControl當客戶端連接到我的IdCmdTCPServer與此相同的代碼： procedure TForm1.IdCmdTCPServer1Connect(AContext: TIdContext); var ATabSheet: TTabSheet; begin ATabSheet := TTabSheet.Create(PageC

5熱度

1回答

我如何更改主題TabSheet標題的文本顏色？

美好的一天！我需要更改TPageControl中某些TabSheet的標題文字顏色。像這樣的東西在畫面我知道如何它可以使用OnDrawTab完成。但是，如果我啓用了OwnerDraw，Windows XP Theme的裝飾消失了。這就是爲什麼我嘗試手動繪製這種裝飾。這是我想做到這一點： procedure TForm1.PageControl1DrawTab(Control: TCustomT

4熱度

1回答

在TPageControl的每個Ttabsheet中繪製一個關閉按鈕

我想在PageControl上實現一個關閉按鈕，並且我也讀過這個問題How to implement a close button for a TTabsheet of a TPageControl 事情是我無法弄清楚如何實現代碼中提供的代碼Ulrichb的答案...他們是否從TPageControl構建了一個新的組件後代？如果有人可以解釋在哪裏寫某個代碼，我會很感激！我有一位在我的學校中瞭解一點

0熱度

1回答

Delphi：將頁面控制選項卡區域向右滾動

在運行時創建新選項卡後，我看到最後一個選項卡被選項卡標題區域中的系統[<]和[>]按鈕重疊。如何滾動這個區域到最右邊的位置？ Img從一個C++應用程序，看起來與我的應用程序相同。德爾福7

1熱度

5回答

TPageControl獲取索引

如何獲取有對象的頁面的編號？例如：在第一頁上有一個Button1，在第二頁上有Button2，如何獲取沒有ActivePageIndex的Button1的頁面編號？謝謝。

1熱度

1回答

如何在VCL風格的頁面控制所有者繪製

當我有這樣的： if not _nightMode then TStyleManager.TrySetStyle('Windows', False); 我可以對頁面控制所有者繪製： procedure TMyMainForm.pcDetailedDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect