delphi-xe5

    0熱度

    1回答

    我用Delphi XE5,我有一個TPanel Caption: 0,00 USD Width: 185 Height: 41 什麼,我需要做的是根據文本寬度/高度以適合面板來改變字體大小。 假設面板顯示1.25美元,Fontsize將是25,但如果面板顯示1.425,18美元,字體大小將自動爲18。無論如何根據文本大小自動更改字體大小? 編輯:新增untpanel單元 我已經創建了下面的

    0熱度

    2回答

    您好,我已經編寫了一個客戶端服務器應用程序,用於將文件從服務器傳輸到客戶端。該代碼是在我的測試很簡單: 服務器的代碼(這是一個可執行文件作爲服務運行或應用程序) function TServerMethods1.DownloadFile(sFile:String; out iOut:Int64): TStream; begin iOut := -1; result := TF

    0熱度

    1回答

    我使用ADO打開Excel表(儘管它可能與任何其他數據庫相同:adoconnection,adotable,datasource)並將其顯示在ReadOnly DBGrid中。 而且我有DBEdit編輯當前選定行中的某個值。 但如何保存它?我嘗試過FormClose上的adotable.Post,但它會拋出「數據集不在編輯或插入模式下」的錯誤。 是否需要在DBEdit OnEnter和Post O

    1熱度

    1回答

    如何刪除TWebBrowser組件的邊框和滾動條? 我搜索了很多,所有的答案都一樣左右: http://www.swissdelphicenter.com/torry/printcode.php?id=1171 http://delphidabbler.com/articles?article=18 ,但不起作用。在我的情況下,我想瀏覽器中查看本地文件。 我該如何隱藏邊框和滾動條?

    3熱度

    1回答

    有沒有辦法在Delphi應用程序中檢查iOS版本?我想在Delphi XE6中爲iOS7和iOS6創建特定的代碼片段。

    5熱度

    1回答

    我正在使用提供給我的程序來運行一個進程,但我希望進程在後臺運行而不顯示窗口。電話是 ExecProcess(ProgPath, '', False); 而且功能 function ExecProcess(ProgramName, WorkDir: string; Wait: boolean): integer; var StartInfo: TStartupInfo; P

    1熱度

    1回答

    我需要調用ASP web api並從delphi 2007返回JSON。我可以在TR StudioClient的RAD Studio XE 5中執行此操作。我試圖把它放在一個dll中,以便我可以從我的delphi 2007程序中調用它。但沒有成功。我如何使用delphi 2007來做到這一點? 編輯 這裏就是我想在Delphi XE做5 class function TSampleApp.Hell

    5熱度

    1回答

    下面的代碼: function get_symbol (var s: String): String; var c: Char; p: Int32; begin // ... some more code ... c := upcase (s [p]); if IsDigit (c) then 導致以下錯誤信息: [dcc32 Warning] fmx_ut

    1熱度

    1回答

    procedure TForm1.TimerSWTimer(Sender: TObject); var Hour, Min, Sec, MSec: word; begin ElapsedTime := Time - StartTime + Totaltime ; DecodeTime(elapsedtime, Hour, Min, Sec, MSec); LabelSW.Text :=

    3熱度

    1回答

    我目前正在嘗試製作一個強制Chrome窗口在我的第二臺顯示器上打開的應用程序,但我無法找到使用參數進行操作,現在我想知道是否可以使用Delphi強制它在第二個屏幕或特定像素上打開?這僅僅是一個適用於我自己和我的個人電腦的應用程序,所以我可以將代碼放在特定的案例中。 我目前使用這段代碼,啓動應用程序 procedure TForm1.BtnClick(Sender: TObject); begin