Delphi: My window does not maximize! A fast solution.

PHOTO

Sun Aug 28 2022 12:32:27 GMT+0000 (Coordinated Universal Time)

Saved by @marcopinero

procedure TForm1.FormCreate(Sender: TObject);
var
  wplc: TWindowPlacement;
begin
  if not AutoScroll and (WindowState = wsMaximized) then begin
    wplc.length := SizeOf(wplc);
    GetWindowPlacement(Handle, @wplc);
    wplc.rcNormalPosition.Right := wplc.rcNormalPosition.Left + Width;
    wplc.rcNormalPosition.Bottom := wplc.rcNormalPosition.Top + Height;
    wplc.showCmd := SW_MAXIMIZE;
    SetWindowPlacement(Handle, @wplc);
  end;
end;

I used to work with Delphi 7 and several times my main form couldn't get maximized. I could fix this using this very simple piece of code.

Save snippets that work from anywhere online with our extensions

Available in the Chrome Web Store

Get Firefox Add-on

Get VS Code extension

Comments

More like this

Delphi/Lazarus/Pascal Collection

@marcopinero

Lazarus/Linux: Connect to SQLServer using ZeosLib component TZConnection Delphi: My window does not maximize! A fast solution. Delphi: Play sound contained in memorystream Delphi: Small VNC Server Delphi: Get FastReport (fr3) by TFileStream and fix inheritance. Delphi: Json to Dataset and viceversa Delphi: Convert string into escaped json string Lazarus: Run command and get output Lazarus/MacOSX: Detect theme dark mode Lazarus (and Delphi?): Customizing MessageDlg buttons and caption linux/dfm-to-json/docker Delphi: Detect if ComboBox is dropped down Delphi: Register custom URI Scheme at Windows Delphi/FastReport: Big paged RTF content Lazarus/Fastreport: Install on Linux Delphi: Percentage top and bottom on graphic Delphi/Android: Enable TWebbrowser navigation to http:// Delphi/UniGUI: Disable load animation Delphi: Post JSON to API Delphi/Windows: List all available web browsers on system Delphi: Windows service app.

Browse more snippets >>