bsSingle BorderStyle von Form1 ohne Maximieren ?

[Premaider]

Hey Leute ich möchte meinem Programm den BorderStyle bsSingle verpassen allerdings ohne Maximieren, also oben rechts nur minimieren und schließen. Wie mache ich das ?

[mkinzler]

Den Eintrag aus BorderIcons rausnehmen

[Premaider]

Dann ist es aber ja nur grau. ich möchte es wenn möglich ganz weghaben

[Popov]

Mit Hilfe der Api wirst du es wahrscheinlich hinkriegen.

[Bummi]

Delphi-Quellcode:

unit Unit2;

interface

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

type

  TForm=Class(Forms.TForm)
       public
       procedure GetBorderIconStyles(var Style, ExStyle: Cardinal); override;
  End;
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


{ TForm }

procedure TForm.GetBorderIconStyles(var Style, ExStyle: Cardinal);
begin
  inherited;
  Style := Style and not (WS_MINIMIZEBOX or WS_MaximizeBOX)
end;

end.

[himitsu]

Nein, was soll man mit der API da hinbekommen? (außer man zeichnet die Titelleiste komplett selber)

Das ist ein Standardverhalten von Windows.
Wenn der Minimierenbutton vorhanden ist, dann auch der Maximimieren (wenn auch nur inaktiv).
Ohne den Minimizebutton ist auch der Maximize weg.

[Bummi]

da habe ich oben doch gegen das KISS-Prinzip verstossen, besser so

Delphi-Quellcode:

unit Unit2;

interface

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

type

  TForm2 = class(TForm)
  private
    { Private-Deklarationen }

  public
  procedure GetBorderIconStyles(var Style, ExStyle: Cardinal); override;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.GetBorderIconStyles(var Style, ExStyle: Cardinal);
begin
  inherited;
  Style := Style and not (WS_MINIMIZEBOX or WS_MaximizeBOX)
end;

end.

[Premaider]

Zitat:

Zitat von Bummi (Beitrag 1159671)

Delphi-Quellcode:

unit Unit2;

interface

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

type

  TForm=Class(Forms.TForm)
       public
       procedure GetBorderIconStyles(var Style, ExStyle: Cardinal); override;
  End;
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}


{ TForm }

procedure TForm.GetBorderIconStyles(var Style, ExStyle: Cardinal);
begin
  inherited;
  Style := Style and not (WS_MINIMIZEBOX or WS_MaximizeBOX)
end;

end.

Habe eine neue Unit erstellt und das ganze von dir eingefügt. Folgende Fehlermeldungen:

Delphi-Quellcode:

[Fehler] Unit2.pas(13): Methode 'GetBorderIconStyles' nicht in Basisklasse gefunden
[Warnung] Unit2.pas(27): Datei nicht gefunden: 'Unit2.dfm'
[Fataler Fehler] Project1.dpr(6): Verwendete Unit 'Unit2.pas' kann nicht compiliert werden

[Popov]

Premaider, was erwartest du jetzt mit deiner Frage? Selbst wenn der Tipp unter D7 funktionieren würde, das steht

Delphi-Quellcode:

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.

[Furtbichler]

Delphi-Quellcode:

BorderStyle := bsDialog

reicht nicht?

[Bummi]

@Furtbichler

dann ist es ja nicht mehr sizeable

[DeddyH]

Aber über die BorderIcons ist derselbe Effekt zu erreichen. Leider kann man den Maximize-Button nur zusammen mit dem Minimize-Button ausblenden, also nicht so, wie der TE es eigentlich möchte.

[Delfiano]

Es gibt einen kleinen Trick mit Hilfsvariablen und FormResize.

BorderStyle:= bsSingle; // Damit die Grösse nicht verändert werden kann.

Variablen:
StartLeft, StartWidth, StartTop, StartHeight: integer;

in FormActivate:
StartLeft:=left;
StartTop:= top;
StartWidth:=width;
StartHeight:=height;

ausserdem für alle relevanten Inhalte doublebuffered:=true

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin

  WITH Form1 DO BEGIN
    doublebuffered:=true;
    if windowstate=wsmaximized then begin
      windowstate:= wsnormal;
      left:=StartLeft; Width:=StartWidth;
      top:=StartTop; height:=StartHeight;
      windowstate:= wsnormal;
    end;
    if width>startwidth then begin left:=StartLeft; Width:=startwidth; end;
    if height>startheight then begin top:=startTop; height:=startheight; end;

  END;

end;

Mag sein, dass es so etwas umständlich ist, aber so kann man minimieren und wenn man auf maximize
klickt, ändern sich das entsprechende Icon und vielleicht flackert das Programm minimal, z.B. die Position des Form-Capture.

Getestet mit Delphi 7 unter Windows 8.