bsSingle BorderStyle von Form1 ohne Maximieren ?

[Popov]

Premaider, was erwartest du jetzt mit deiner Frage? Selbst wenn der Tipp unter D7 funktionieren würde, das steht and not (WS_MINIMIZEBOX or WS_MaximizeBOX) . Also beides.

Hier das gleiche in grün:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE,
    GetWindowLong(Handle, GWL_STYLE)
    and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX));
end;

Kannst du experimentieren.

Ansonsten siehe Beitrag von himitsu.