Er min form maksimeret?

Du kan checke om form.width og form.heigth er det samme som skærmstørrelsen.

hvis du bruger hreiff metode ville det nok være en god ide at trække startbarens højde fra :)

/ZIRON

Hvordan ungår jeg at man 'bare' resizer formen til at fylde skærmbreden*skærmhøjden-proceslinjens højde? Så er formen jo ikke ordentligt maksimeret. Er der ikke et api-kald af en slags der kan klare det på en bedre måde? Eller et freeware-component/unit som kan bruges?

hmm jo der er nok et api-kald, er også ved at prøve...

/ZIRON

hmm prøv med det her, det ser ud til at virke:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMSize (var msg: TWMSize);
      message WM_SIZE;
  public
    { Public declarations }
      Max : Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSize (var msg: TWMSize);
begin
  inherited;
  if (msg.SizeType = SIZE_MAXIMIZED) then
    begin
      Max := True;
  end;

  if (msg.SizeType = SIZE_RESTORED) then
    begin
      Max := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
msg : TWMSize;
begin
  if Max = True then
    begin
      ShowMessage('ja den er maximized');
  end;
end;

end.

/ZIRON

Jeg har ikke lige adgang til Delphi, vil se om jeg får tid til at teste senere.

yes yes bare iorden der....

/ZIRON

ZIRON-> Det virkede næsten perfekt, nu er det perfekt! Du for kastet en bunke point i hovedet :-)

fino og takker, hmm hvad var det som ikke lige virkede??

/ZIRON

Det er ikke selve din kode der ikke virkede, det var fordi jeg brugte formens OnResize-procedure i stedet for TForm1.Button1Click, den opdateres vist ikke altid (fandt jeg ud af).
Nu gør jeg det jeg skal direkte via TForm1.WMSize, det virker :)

yes yes bare iorden så...

/ZIRON