Maximieren-Button in Form entfernen

[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: