Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Titelzeile ausblenden?
Autor: Herry
Datum: 29.08.02 12:17
Hallo, ich habe ein kleines Problem mit der Titelzeile ausblenden in MDI Childs. Ich möchte die Windows Standard Titelzeile ausblenden, aber der Rahmen soll erhalten bleiben. Wenn ich die Eigenschaft MDIChild auf False setze funktioniert das auch mit folgender Anweisung! (Hab ich mal aus einem Forum!!!, ist mir aber ein Raetsel weil ich die einzelnen Parameter bzw Einstellungen nicht kenne!!!) Wenn ich die Eigenschaft MDIChild auf True setze verschwindet der Rahmen auch. Wer kann mir da weiterhelfen? Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Const GWL_STYLE = (-16) Public Const WS_CAPTION = &HC00000 'WS_BORDER Or WS_DLGFRAME Public Sub Form_init(WHandleNr As Long) Dim OldStyle As Long Dim NewStyle As Long 'Get the current window style of the form. OldStyle = GetWindowLong(WHandleNr, GWL_STYLE) 'Set the window style to be the same, minus the caption bar ( and no input-focus as comment ). NewStyle = OldStyle And Not WS_CAPTION 'Or WS_DISABLED 'Change the window style of the form. OldStyle = SetWindowLong(WHandleNr, GWL_STYLE, NewStyle) Call ChangeStyleBit(WHandleNr, 0, NewStyle) End Sub Sub ChangeStyleBit(hwnd As Long, f As Boolean, afNew As Long) Dim af As Long af = GetWindowLong(hwnd, GWL_STYLE) If f Then af = af Or afNew Else af = af And (Not afNew) End If Call SetWindowLong(hwnd, GWL_STYLE, af) End Sub

Titelzeile ausblenden?	73	Herry	29.08.02 12:17
Re: Titelzeile ausblenden?	271	unbekannt	29.08.02 13:15
Re: Titelzeile ausblenden?	46	Herry	29.08.02 13:30
Re: Titelzeile ausblenden?	254	unbekannt	29.08.02 13:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen