vcl

0熱度

1回答

我有一個TStatusbar，有4個面板，其中一個設置爲OwnerDraw樣式。在onDrawPanel()事件處理程序中，我希望TStatusbar使用默認的繪圖方法，然後在其上添加一些自定義繪圖。有沒有辦法從我的onDrawPanel處理程序調用默認處理程序？編輯嗯，我確實發現了一個修復，但我不知道如果系統字體改變是多麼可靠。由於默認處理程序僅繪製面板文本，因此對TextRect的簡

2熱度

1回答

UnicodeString兼容性問題

我將一個較舊的項目從C++ Builder 2009移植到XE5。在舊項目中，Unicode字符串的編譯器選項設置爲「_TCHAR映射到：char」。這在舊項目中運行良好。當移植它時，我在XE5中設置了相同的編譯器選項。但我仍然得到編譯器錯誤代碼是這樣的： std::string str = String(some_component.Text).t_str(); 這給出了以下錯誤： [bc

3熱度

2回答

Delphi7 TeeChart v4圖例 - 如何滾動？

我有一個TChart（斯蒂馬TeeChart包含在Delphi IDE）組件，它可能有多達64個圖表系列（在我的情況下，堆積區）。我需要在圖表中顯示所有現有的系列，但不幸的是，Legend並未顯示現有的所有系列，只有其中的第一個10-16（請參見圖片）。是否有可能以某種方式滾動傳說查看所有現有的系列？如果不是直接也許有些解決方法？使用Delphi7，圖表v4

0熱度

1回答

delphi中tpopumenu的默認字體是什麼？

我正在做Rad Studio XE2中的一個程序，它可以最小化托盤圖標。我發現TPopMenu的字體和TTrayicon的氣球取決於操作系統是完全不同的（我試過在Windows 7和Windows XP上）。我認爲這可能是Application.DefaultFont，並編輯它開始，但沒有。你知道這個來源嗎？ procedure TForm_Principal.FormCreate(Sende

1熱度

2回答

創建一個數據庫感知組件--TFieldDataLink.Edit導致字段重新加載

我正在嘗試創建一個數據感知控件。我有一個連接了DataSource和Field的TFieldDataLink對象。在我嘗試編輯該值之前，一切似乎都沒有問題。我正在使用TFieldDataLink的OnDataChange和OnUpdateData事件。它看起來像我需要調用TFieldDataLink.Edit如果我想調用OnUpdateData事件之前移動到新的記錄或張貼。在下面的示例代碼中試圖

0熱度

1回答

光油：VCL〜與req值

我想避免緩存在同一頁取決於cookie值（我的用戶有配置文件與URL/firstname-lastname，並可以訪問其他用戶的配置文件）。在我的cookies中，我存儲了「firstname-lastname」值，並嘗試對其進行測試。所以我做了這個： set req.http.X-SLUG = regsub(req.http.cookie, ".*user_slug=([^;]+);.*",

1熱度

1回答

如何更改JvTabBar1中的關閉按鈕方向？

如何移動JvTabBar1（JVCL組件）右側的關閉按鈕？在這個組件中沒有提供住宿選擇。

3熱度

2回答

有道

常常改變VCL組件的內容時，我讓VCL程序，我碰到一個場景是這樣的：我有一些表格上的組件，這些用戶被允許擺弄。最常見的是一堆編輯框。當用戶手動鍵入內容時，這些編輯框的內容需要通過OnChange事件進行驗證。窗體上的其他位置，有一些組件用戶可以點擊以獲取一些默認值加載到編輯框（在TEdit :: Text中）。現在我想要的是，只要用戶在TEdit :: Text中輸入內容，OnChange

1熱度

1回答

如何**將FIX **值添加到DBGrid的標題擡高？

當用戶選擇我的網格標題時，我想加粗網格的列標題。我用下面的代碼來實現這一目標： procedure TForm1.DBGrid1TitleClick(Column: TColumn); var I: Integer; begin //Prevent multiple clicks! if fsBold in Column.Title.Font.Style then

-3熱度

1回答

德爾福AnsiStartsStr失蹤

如果我在Delphi VCL使用AnsiStartsStr有錯誤：未聲明的標識符我媒體鏈接安裝了補丁包，但它並沒有幫助。我該如何解決這個問題？我想： if AnsiStartsStr('CONNECTINFO<-+^+->', socket.receivetext) then begin; end;