selbsterstellte Combobox hat (noch) keinere Fehler

[David Martens]

So:

Delphi-Quellcode:

procedure TMultiColCheckedComboBox.DoDropDown(Sender : TObject);
var
  ScreenPoint : TPoint;
  i, j,
  FWidth,
  FHeight,
  FTop,
  FLeft : integer;
begin
  // damit das Suchfeld nicht unerwartet aufpoppt, wird es beim Zeigen der
  // CheckList immer auf unsichtbar geschaltet
  if FSearchForm.Visible then
  begin
    FSearchForm.Visible := false;
  end;

  if FMultiSearchForm.Visible then
  begin
    FMultiSearchForm.Visible := false;
  end;

  // Dropdownbutton
  if FButton.Tag = 1 then
  begin
    FButton.Tag := 0;
    if not FEdit.Focused then
      EditOnExit(Sender);
    Exit;
  end;

  Click;

  // Assign Form coordinate and show
  ScreenPoint           := Parent.ClientToScreen(Point(Self.Left, Self.Top + Self.Height));

  with FPrivForm do
  begin
    Visible       := false;
    FLeft         := ScreenPoint.X;
    FTop          := ScreenPoint.Y;
    FWidth        := 0;
    FHeight       := 0;

    // Gesamtbreite des Grids ermitteln
    ...
    // Aufklapphöhe ermitteln (keine leere Fläche in der DropDownBox)
    ...
    // Breite mindestend Komponentenbreite
    ...
    // Höhe auf Bildschirmgröße limitieren
    ...
    // Breite auf Bildschirmgröße limitieren
    ...

    BorderStyle  := bsNone;
    OnDeactivate := DoCloseDropDown;

    // Box anzeigen
    Show;
    SetBounds(FLeft, FTop, FWidth, FHeight);
    FormStyle     := fsStayOnTop;       // über die Startleiste
    Font          := Self.Font;
  end;
end;

[Alaitoc]

Danke Dir, werde nun im Laufe des Tages schauen was ich anders gemacht habe.
Wahrscheinlich so gegen Mittag...

MfG Alaitoc

[Alaitoc]

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