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 ?

Den Eintrag aus BorderIcons rausnehmen

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

Mit Hilfe der Api wirst du es wahrscheinlich hinkriegen.

zusammenfalten · markieren

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.

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.

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

zusammenfalten · markieren

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.

Zitat von Bummi:

zusammenfalten · markieren

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:

markieren

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

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:

markieren

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.

BorderStyle := bsDialog reicht nicht?