whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1547)

Database (90)
Files (137)
Forms (107)
Graphic (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

37 Visitors Online


 
...hide the Minimize/Maximize buttons of a form?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (14):  
     





{
  This article shows by example how to suppress the maximize and
  minimize buttons on an form at runtime.
  To disable an form's Minimize and Maximize buttons,
  you need to use the SetWindowLong Windows API
  function to change the style of the window.
}

{ Dieses Beispiel zeigt, wie man die Schaltflächen zur Minimierung,
  Maximierung einer Form zur Laufzeit verstecken kann.
  Man braucht dafür die SetWindowLong Windows API um den Stil
  des Fensters zu ändern.
  Der Code kann auch für non-VCL Anwendungen gebraucht werden.
}

// Add the following code to the OnCreate event
// procedure for your form (TForm1):

procedure TForm1.FormCreate(Sender: TObject);
var
  
l: DWORD;
begin
  
l := GetWindowLong(Self.Handle, GWL_STYLE);
  l := l and not (WS_MINIMIZEBOX);
  l := l and not (WS_MAXIMIZEBOX);
  l := SetWindowLong(Self.Handle, GWL_STYLE, l);
end;


 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners