vcl

I can't get ExitCode to work for a VCL forms application. Here is my test application. It was created from the File / New menu in the Delphi 2007 IDE. The only change is that I added the line ExitCode := 42; at the end. program Test; uses Forms, Unit27 in 'Unit27.pas' {Form27}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm27, Form27); Application.Run; ExitCode := 42; end. Now, when I run it from the command line, %ERRORLEVEL% doesn't get set: >.\Test.exe >echo %ERRORLEVEL% 0 I was expected the value in %ERRORLEVEL% to be 42, but it

I have been updating code fomr an old legacy project build using C++ Builder 2010 to compile with C++ Builder 10 Seattle . I have mostly had to change paths, a lot of dupIgnore to TDuplicates::dupIgnore , reimport some components like MSXML and MSMQ etc. First for a bunch of subprojects that the main project uses in the form of bpl's and dll's and finally the code of the main project compiles. But... it fails a linking :P [ilink32 Error] Fatal: Unable to open file 'TYPES.OBJ' I have tried to find info about potential issues and many mention making sure System is supplied in the Unit Scope

I'm trying follow what was suggested in this answer, changing this part of Vcl.Forms.pas : procedure TCustomForm.CreateWindowHandle(const Params: TCreateParams); var CreateStruct: TMDICreateStruct; NewParams: TCreateParams; begin if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then begin {if (Application.MainForm = nil) or (Application.MainForm.ClientHandle = 0) then raise EInvalidOperation.Create(SNoMDIForm);} with CreateStruct do begin szClass := Params.WinClassName; szTitle := Params.Caption; hOwner := THandle(HInstance); X := Params.X; Y := Params.Y; cX := Params.Width;

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有：数据录入，图表，数据分析，导航，布局，网格，日程管理，样式，打印和工作流等，让您快速开发出完美、强大的VCL应用程序！DevExpress广泛应用于ECM企业内容管理、 成本管控、进程监督、生产调度，在企业/政务信息化管理中占据一席重要之地。 【适用范围】 ：Delphi / C++Builder XE2 / XE3 / XE4 / XE5 / XE6 / XE7 / XE8 / XE10 , Embarcadero Delphi , C++Builder 10 Seattle DevExpress VCL Controls v19.1.7试用下载 具体更新内容如下： 解决的问题 此列表包括v19.1.7中已解决的所有问题。 ExpressBars Suite T823778 - Ribbon - Customization Form - 重新打开表单后，"Reset all customizations" 选项不会恢复功能区标签顺序 ExpressDocking Library T826051 - 对于Dock panels或扩展的docking管理器指定的较大字体，Dock panels不足以增加其标题 ExpressEditors Library T830738

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有：数据录入，图表，数据分析，导航，布局，网格，日程管理，样式，打印和工作流等，让您快速开发出完美、强大的VCL应用程序！DevExpress广泛应用于ECM企业内容管理、 成本管控、进程监督、生产调度，在企业/政务信息化管理中占据一席重要之地。 【适用范围】 ：Delphi / C++Builder XE2 / XE3 / XE4 / XE5 / XE6 / XE7 / XE8 / XE10 , Embarcadero Delphi , C++Builder 10 Seattle DevExpress VCL Controls v19.1.7试用下载 具体更新内容如下： 解决的问题 此列表包括v19.1.7中已解决的所有问题。 ExpressBars Suite T823778 - Ribbon - Customization Form - 重新打开表单后，"Reset all customizations" 选项不会恢复功能区标签顺序 ExpressDocking Library T826051 - 对于Dock panels或扩展的docking管理器指定的较大字体，Dock panels不足以增加其标题 ExpressEditors Library T830738

I'm using Delphi XE and I would like to make a button which shows just the provided PNG image with transparent background and no additional margins of any kind. I tried to do this with TButton but I get an ugly gray background with bsPushButton style. If I use bsCommandLink style there is a 10 pixel top margin although all my ImageMargins settings are set to 0. What would be the easiest way to make this happen? EDIT: It doesn't have to look like a button. I just need it to look exactly like the image it is assigned with. Preferably it should be able to be a tab stop and have various states

My TMemo descendant has constructor constructor TMyMemo.Create(AOwner: TComponent); begin inherited Create(AOwner); Lines.Clear; end; When I put TMyMemo on the form I get error "Control '' has no parent window.". Why? A newly created memo has no content. But content is added as soon as the component acquires a name, which is done automatically by the designer. To prevent this, remove csSetCaption from ControlStyle : constructor TMyMemo.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle := ControlStyle - [csSetCaption]; end; Move Lines.Clear to overriden method CreateWnd.