delphi-10.3-rio

Allow multiple MDI Parent Forms on same Application

爷,独闯天下 提交于 2019-12-04 22:05:41
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;

Delphi 10.3 Rio - Is initializaiton of inline declared record variables needed?

自古美人都是妖i 提交于 2019-12-01 15:52:59
I am quite excited about Delphi 10.3 Rio inline variable declarations. However I ran into strange problem and it seems that I need to initialize record after it has been inline declared: program Project8; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils,classes; procedure DoEvil; //var sr:TSearchRec; //A begin //var sr:= default(TSearchRec); //B var sr:TSearchRec; //C sr.Name := EmptyStr; //D FindFirst('*.*',faAnyFile,sr); while sr.Name<>EmptyStr do begin Writeln(sr.name); sr.Name := EmptyStr; FindNext(sr); end; end; begin try DoEvil; { TODO -oUser -cConsole Main : Insert code here } except

Delphi 10.3 Rio - Is initializaiton of inline declared record variables needed?

[亡魂溺海] 提交于 2019-12-01 14:53:02
问题 I am quite excited about Delphi 10.3 Rio inline variable declarations. However I ran into strange problem and it seems that I need to initialize record after it has been inline declared: program Project8; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils,classes; procedure DoEvil; //var sr:TSearchRec; //A begin //var sr:= default(TSearchRec); //B var sr:TSearchRec; //C sr.Name := EmptyStr; //D FindFirst('*.*',faAnyFile,sr); while sr.Name<>EmptyStr do begin Writeln(sr.name); sr.Name :=