Einzelnen Beitrag anzeigen

Alaitoc

Registriert seit: 24. Okt 2008
263 Beiträge
 
Delphi 7 Enterprise
 
#12

AW: selbsterstellte Combobox hat (noch) keinere Fehler

  Alt 17. Jun 2010, 17:28
Ich finde es ehrlich gesagt einfach nicht...die einzigen Einstellungen die ich an meinem Fenster vornehme sind diese hier:

Code:
// Im Create
DesktopWindow:= TForm.Create(Self);
DesktopWindow.Parent := Self;

// In der Initialisierung
// Initialisieren des Desktop-Fensters
DesktopWindow.DoubleBuffered := True;
DesktopWindow.AutoSize := True;
DesktopWindow.DefaultMonitor := dmDesktop;

// Setzt als Parent das Desktop-Handle
Windows.SetParent( DesktopWindow.Handle , GetDesktopWindow() );

// WS_EX_TOOLWINDOW
// Window with a thin caption. Does not appear in the taskbar or in the Alt-Tab palette. WS_CAPTION also must be specified.
SetWindowLong( DesktopWindow.Handle, GWL_EXSTYLE, ( GetWindowLong( DesktopWindow.Handle, GWL_EXSTYLE ) or WS_EX_TOOLWINDOW ) );
// And NOT
// WS_THICKFRAME
// Window with no Border.
SetWindowLong( DesktopWindow.Handle, GWL_STYLE, ( GetWindowLong( DesktopWindow.Handle, GWL_STYLE ) and not WS_THICKFRAME ) ) ;
// And NOT
// WS_CAPTION
// Window that has a title bar (automatically includes the WS_BORDER if no other border style is specified).
SetWindowLong( DesktopWindow.Handle, GWL_STYLE, ( GetWindowLong( DesktopWindow.Handle, GWL_STYLE) and not WS_Caption ) );
Die Komponente wird dabei von TCustomPanel abgeleitet.
Änderst du vll. iwas spezielles an deinem Formular, vll. liegts auch an fsStayOnTop?

MfG Alaitoc
  Mit Zitat antworten Zitat