2010-02-23 6 views

Antwort

20

Oh! Ich habe im Objektinspektor "BorderIcons" einfach dort bimaximize von true auf false gesetzt!

1

Hier ist ein weiterer Trick, wenn Sie es nur mit Code tun möchten.

procedure TForm1.FormCreate(Sender: TObject); 
var 
    l: DWORD; 
begin 

    // hide minimize and maximise buttons 
    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; 
+5

In VCL-Code dies einfach sein sollte 'Border: = Border - [biMaximize]'. –

0

Border: = Border - [biMaximize]

Verwandte Themen