[Delphi]Dubbelklikken op de titelbalk uitschakelen

[Verwijderd]

Ik heb een form waarvan de style bsSingle is. Bij bordericons is biMaximize uitgeschakeld.

De form wordt vervolgens als maximize gestart. Maar als ik nu op de titelbalk dubbelklik gaat de form toch naar het vorige formaat. Hoe kan ik dit uitschakelen?

[Verwijderd]

Ok. Is pretty simple.

In OnCanResize :

NewWidth := Screen.Width;
NewHeight := Screen.Height;

That's it. Je kunt zo niet verhelpen dat het formulier op een andere plaats terecht komt.

[Verwijderd]

Dat werkt nog niet helemaal goed. De form houdt wel de goede grootte alleen je kan hem dan verplaatsen en dat moet NIET kunnen.

[Verwijderd]

Maak dan van je borderstyle bsNONE en voeg zelf knoppen toe om te sluiten. Moet gewoon werken (bij mij i.i.g. wel).

Succes

[Verwijderd]

Het moet toch gewoon mogelijk zijn met border bsSingle???

[Verwijderd]

Gebruik dit:

code:

[..]
  TForm1 = class(TForm)
  protected
    procedure WMNCLButtonDown(var Message: TWMNCLButtonDown); message
    WM_NCLBUTTONDOWN;
    procedure WMNCLButtonDblClk(var Message: TWMNCLButtonDblClk); message
    WM_NCLBUTTONDBLCLK;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMNCLButtonDblClk(var Message: TWMNCLButtonDblClk);
begin
  case Message.HitTest of
    HTSYSMENU, HTCAPTION: ;
  else
    inherited;
  end;
end;

procedure TForm1.WMNCLButtonDown(var Message: TWMNCLButtonDown);
begin
  case Message.HitTest of
    HTSYSMENU, HTCLIENT, HTCLOSE: inherited;
  else
    ;
  end;
end;

end.

[Verwijderd]

Bedankt, dit is precies wat ik moest hebben.