MDI Child Form ohne CaptionBar (war: MDI Child Form)



  • Hallo,

    ich möchte gerne mein " MDI Child Form " ohne die Kopfzeile, in deren die Button Min, Max, usw. vorhanden ist.

    habe schon viele Variante durchgespielt, aber bisher keinen Erfolg.

    wer kann mir weiterhelfen ?

    Gruß Siegfried

    🙂

    Edit:
    Bitte aussagekräftige Überschriften wählen. Danke!



  • Welche Varianten hast du durchgespielt? Du willst doch sicher nicht einen Haufen Tips lesen, die du schon kennst.



  • Hallo,

    nach Möglichkeit nicht.
    also BorderStyle, BorderIcons habe ich in allen Variante umgestellt. FormStyle kann ich ja nicht verändern.

    Mein vorhaben ist folgend. Eine Form mit fsMDIChild Eigenschaften, aber ohne das anzeigen der Captionbar. Möchte meine " Captionbar " nach meinem Wünschen erstellen.

    Habe bisjetzt im Internet folgendes gefunden. Ist aber eine andere Sprache.

    procedure TForm1.RemoveCaptionBar;
    begin
      SetwindowLong(Handle,GWL_Style, GetwindowLong(handle, GWL_style) and not Ws_caption);
      height := Height-GetSystemMetrics(SM_CYCAPTION); { Calculate new client height }
      refresh;
    end;
    
    procedure TForm1.DisplayCaptionBar;
    begin
      height := Height+GetSystemMetrics(SM_CYCAPTION); { calculate new client height }
      refresh;
    end;
    

    Gruß Siegfried



  • // im Header der ChildForm
    virtual void __fastcall CreateParams(TCreateParams &Params)
    
    // in der CPP der ChildForm
    void __fastcall TDeinChildFormName::CreateParams(TCreateParams &Params)
    {
      TForm::CreateParams(Params);
      Params.Style = Params.Style & ~WS_CAPTION;
    }
    

    Für ähnlich gelagerte Informationen siehe auch den FAQ-Abschnitt "Forms".



  • Hallo,

    werde dieses einbauen. Aber für heute Abend erst mal Schluß.

    danke an alle.

    Gruß Siegfried

    🙂



  • Hallo,

    habe dein Code eingebaut, funktioniert !

    danke dafür,

    Gruß Siegfried

    👍 👍 👍


Anmelden zum Antworten