Maximieren-Button in Form entfernen

[freak1988]

Wie kann ich bei einer Form den Maximieren-Button entfernen?

[Luckie]

Guck mal im OI: BroderIcons.

[Matze]

Da lässt sich der Button allerdings nur deaktivieren.
Da dies das Standardverhalten vieler Anwendungen ist, würde ich mich an deiner Stelle auch daran halten. Doch entfernen kannst du den Button bestimmt, indem du das Handle ermittelst und eine entsprechende Nachricht an dieses sendest.

[Luckie]

Nein, man muss den korrespondierenden Menüeintrag aus dem Systemmneü entfernen. Code kommt gleich.

Ok, ich behaupte jetzt das gegenteil. Entfernen geht doch nicht. ;)

[Hawkeye219]

Hallo,

es sollte genügen, die Methode CreateParams zu überschreiben:

Delphi-Quellcode:

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and (not WS_MAXIMIZEBOX);
end;

Ganz entfernen würde ich den Button nicht.

Gruß Hawkeye

[freak1988]

Vielen Dank, der OI hat mir geholfen

[AlexII]

Kann mir jemand sagen wie ich diesen Code in mein Programm einbauen soll? :gruebel:

Delphi-Quellcode:

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and (not WS_MAXIMIZEBOX);
end;

Nur einfügen geht nicht.

[himitsu]

du mußt die Original-Methode überschreiben :zwinker: (override)

[AlexII]

Hm... und das heißt? :gruebel:

[Frankfurtoder]

Zitat:

Zitat von AlexII

Hm... und das heißt? :gruebel:

Den Source aus dem Beitrag mit der Maus makieren, über die rechte Maustaste das Kontextmenü aufrufen, kopieren wählen. In dein Delphi den Editor aufrufen und dort die alte Prozedur überschreiben (über die rechte Maustaste im menü auf einfügen).

[sirius]

Zitat:

Zitat von Frankfurtoder

Den Source aus dem Beitrag mit der Maus makieren, über die rechte Maustaste das Kontextmenü aufrufen, kopieren wählen. In dein Delphi den Editor aufrufen und dort die alte Prozedur überschreiben (über die rechte Maustaste im menü auf einfügen).

:wall: War das jetzt Ironie oder Echt?

Delphi-Quellcode:

type TForm1=class(TForm)
      ...
      protected
        procedure CreateParams(...); override;
     end;

Das bringt aber nix anderes, als was du im OI schon gemacht hast.

Evtl. hilft dir noch Borderstyle weiter.

[DeddyH]

Mit BorderStyle auf z.B. bsDialog entfernst Du zwar den Maximieren- aber gleichzeitig auch den Minimieren-Button.

[himitsu]

Delphi-Quellcode:

type
  TWinControl = class(TControl)
  protected
    ...
    procedure CreateParams(var Params: TCreateParams); virtual;
    ...
  end;

  TCustomForm = class(TScrollingWinControl)
  protected
    ...
    procedure CreateParams(var Params: TCreateParams); override;
    ...
  end;

  // folgendes mußt du jetzt machen (übersieh das protected aber nicht! )
  TForm1 = class(TScrollingWinControl)
  protected
    ...
    procedure CreateParams(var Params: TCreateParams); override;
    ...
  end;

in TWinControl ist CreateParams als Virtual definiert, welches von TCustomForm schonmal überschrieben wurde ... tja und nun überschreibst du es nochmal in deiner Form (also der davon abgeleiteten Klasse)

[edit] weo kommen den jetzt plötzlicvh die ganzen Beiträge her? :shock:

[sirius]

Zitat:

Zitat von DeddyH

Mit BorderStyle auf z.B. bsDialog entfernst Du zwar den Maximieren- aber gleichzeitig auch den Minimieren-Button.

Ich weis, was passiert. Aber vielleicht war es ja auch das, was der OP sucht. Hat sich nur falsch ausgedrückt. Passiert ja nicht gerade selten.

[DeddyH]

Das sollte ja auch kein Angriff o.ä. sein, sondern nur ein Hinweis. Vielleicht war er ja sogar zielführend :zwinker:

[sirius]

Zitat:

Zitat von himitsu

[edit] weo kommen den jetzt plötzlicvh die ganzen Beiträge her? :shock:

Aus dem OFF.

[AlexII]

Mda..... jetzt verstehe ich garnix :pale:

Ok überlasse es der nächsten Generation... sie sollen es richten.

[DeddyH]

Was verstehst Du denn nicht?

[sirius]

Zitat:

Zitat von AlexII

Mda..... jetzt verstehe ich garnix :pale:

Ok überlasse es der nächsten Generation... sie sollen es richten.

Ekläre besser mal in einem neuen Thread, was du genau willst.

[AlexII]

Also ich hab das so gemacht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and (not WS_MAXIMIZEBOX); 
end;

Und der Maximieren Button verschwindet trotzdem nicht :gruebel:

[DeddyH]

Der verschwindet auch nicht, sondern wird nur deaktiviert (also das Gleiche, was Du auch über die BorderIcons erreichst).

[AlexII]

Zitat:

Zitat von sirius

Ekläre besser mal in einem neuen Thread, was du genau willst.

Den Maximieren Button ausblenden.

[sirius]

(Auf Grund des roten Kastens alle Dopplungen entfernt)
(Auf Grund der zwei roten Kästen noch mehr entfernt :D )


Er wird ausgegraut.
Verschwinden tut er nicht. Das sieht das Konzept von MS nicht so einfach vor.
Wie ich schrieb: Du erreichst dasselbe wie mit Bordericons.
Was erwartest du denn?

[AlexII]

Zitat:

Zitat von DeddyH

Der verschwindet auch nicht, sondern wird nur deaktiviert (also das Gleiche, was Du auch über die BorderIcons erreichst).

Dieses Thema heißt aber "Maximieren-Button in Form entfernen" :gruebel:

Na gut :pale: Pardo...

[DeddyH]

Du hast folgende Möglichkeiten:
- Maximieren-Button deaktivieren, Minimieren-Button aktiv
- Minimieren-Button deaktivieren, Maximieren-Button aktiv
- beide deaktivieren -> sie werden entfernt

Wenn Letzteres für Dich OK ist, kannst Du das entweder über die BorderIcons oder über den BorderStyle erreichen.

[himitsu]

Delphi-Quellcode:

BorderIcons = [biSystemMenu]

so ist'er Weg ... ok, zwar samt dem MinimizeButton, aber er ist weg :roll:

Zitat:

Zitat von sirius

Das sieht das Konzept von MS nicht so einfach vor.

genausowenig wie den Help-Button zusammen mit einem Minimize- und/oder Maximize-Button :?

[AlexII]

Ja das mit dem BorderIcons kenne ich...
Das heißt also diesen Button bekomme ich net weg, also ganz weg und nicht nur deaktivieren.

[DeddyH]

Du bekommst ihn schon weg, aber nur in Kombination mit dem Minimieren-Button. Klingt blöd, ist aber so.

[AlexII]

Ne so nicht. Na gut, danke euch.

[Reinhardtinho]

Wenn du beide Buttons deaktivierst, kannst du auch den TJvCaptionButton nehmen (Jedi).

Allerdings wird dieser wahrscheinlich nicht an das Theme angepasst.