selbsterstellte Combobox hat (noch) keinere Fehler

[David Martens]

@Alaitoc: Wunderbar ich danke dir. Ich hab es gleich mal ausprobiert und das scheint mein 2. Problem entlich zu lösen.

Kannst du mir mal zeigen wie du das mit den API-Funktionen gemacht hast? Damit hab ich leider noch nicht so viel gemacht.
Mit TCustomCombobox kann ich leider nciht arbeiten, da ich dann kein AOwner: TComponent habe den ich an das Grid weiterleiten kann.

Danke nochmal,
David

[Alaitoc]

Da ich leider nun nicht mehr auf der Arbeit bin und das Projekt nicht hier habe
musst du dich leider noch bis Morgen gedulden.

Werde mich dann aber so früh wie möglich melden.

MfG Alaitoc

[David Martens]

@Alaitoc: Danke dir, aber keine Hektik. Du hast mir schon super geholfen und so groß ist das Problem nun auch nicht, das ich das gleich morgen früh umsetzen muß.

Bis Dann, und hoffentlich konnte ich auch helfen (http://www.delphipraxis.net/152162-m...-getrennt.html)

[Alaitoc]

Puh ich finde es einfach nicht o.o , bin den Programmcode mehrfach durchgegangen...
Ich kann aber irgendwie die zuständige Zeile dafür nicht finden.

Wie rufst du denn das Formular wo das Gridview draufliegt auf?

MfG Alaitoc

[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