ListBox TopLevel

[EWeiss]

Gibt es eine Möglichkeit eine ListBox über allen anderen Komponenten zu setzen inklusive der eigenen Mainform?
Damit sie sich so verhält wie eine Combobox?

Ich hab schon so einiges versucht SetWindowPos und die dafür verwendbaren Flags.
Hat nichts gebracht..

Siehe Bild unten das Teil das wie eine Combo aussieht, bekomme ich nicht über die MainForm.

gruss

[himitsu]

Wenn es sich auf die (Main)Form als Komponente drauf malt, dann nein.

Wenn es selber in einem "eigenem" Fenster ist, dann ja. (siehe Hints, PopupMenüs und DropDown-Fenster ala ComboBox)

[EWeiss]

Zitat von himitsu:

Wenn es sich auf die (Main)Form als Komponente drauf malt, dann nein.

Wenn es selber in einem "eigenem" Fenster ist, dann ja. (siehe Hints, PopupMenüs und DropDown-Fenster ala ComboBox)

OK Danke dann werde ich das malversuchen.

Irgendwelche Informationen welche Style des Fensters Verwendung finden?
WS_POPUP oder WS_OVERLAPED
WS_CHILD und oder Parent Handle ?

Glaube das dürfte nicht egal sein damit es funktioniert.

gruss

[Sailor]

FormStyle := fsStayOnTop sollte helfen

[EWeiss]

Zitat von Sailor:

FormStyle := fsStayOnTop sollte helfen

Danke sorry ist NonVcl (Hätte ich dabei schreiben sollen)
Und nein würde auch nicht funktionieren.. (mit der ListBox ohne DropDown Window)

Sagte schon das ich SetWindowPos und Konsorte schon versucht habe.

gruss

[himitsu]

Zitat:

Sagte schon das ich SetWindowPos und Konsorte schon versucht habe.

Und wie?

Man könnte auf die blöde Idee kommen und in der Forms.pas nachgucken, was fsStayOnTop macht.
SetWindowPos + HWND_TOPMOST

Aber TopMost würde ich nicht nehmen.
Es muß als Owner das Programmfenster bekommen und vermutlich wird man oft etwas mit WS_POPUP und eventuell SWP_NOACTIVATE verwenden.
delphi create popup window

[tcoman]

Zitat von EWeiss:

Gibt es eine Möglichkeit eine ListBox über allen anderen Komponenten zu setzen inklusive der eigenen Mainform?
Damit sie sich so verhält wie eine Combobox?

Ich hab schon so einiges versucht SetWindowPos und die dafür verwendbaren Flags.
Hat nichts gebracht..

Siehe Bild unten das Teil das wie eine Combo aussieht, bekomme ich nicht über die MainForm.

gruss

Wuerde mal das probieren...

ListBox1.BringToFront;
Your_Other_Controls.SendToBack;

MfG,
Terence

[EWeiss]

Ich weise nochmal darauf hin.

Zitat:

Danke sorry ist NonVcl (Hätte ich dabei schreiben sollen)
Sagte schon das ich SetWindowPos und Konsorte schon versucht habe.

Ich habe es schon gelöst. Danke.
Werde das Thema deshalb aus meinen Abonnierten Themen entfernen.

gruss

[EWeiss]

Ok hier ist die Lösung falls es mal jemand braucht.

Delphi-Quellcode:

WM_LBUTTONDOWN:
  // Die ListBox mit deren Handle auf den Desktop legen
  SetParent(WinHandle, GetDesktopWindow); //(alternativ für GetDesktopWindow einfach 0)
  //TopMost festlegen um das TopLEvel Window zu erhalten
  Skinengine.SetZorder(WinHandle, HWND_TOPMOST);
  //Mouse Event Aufnehmen damit die Mausmessagen an die Layered ListBox weitergereicht werden.
  SetCapture(WinHandle);
  //Layered Attribute für die ListBox setzen
  Skinengine.SetLayeredAlpha(WinHandle, 175);
  ....

WM_LBUTTONUP:
  //Layered Style entfernen sonst sieht man die ListBox nicht mehr. (Child kann kein Layered Window haben)
  OldStyle := GetWindowLong(WinHandle, GWL_EXSTYLE);
  SetWindowLong(WinHandle, GWL_EXSTYLE, OldStyle and (not WS_EX_LAYERED));
  //MouseEvents für die ListBox freigeben
  ReleaseCapture;
  // Vom Desktop zurück in die Hauptanwendung
  SetParent(WinHandle, HParent);
  // ListBox positionieren
  SetWindowPos(WinHandle, HWND_TOP, FLeft, FTop, FWidth - FLeft, FHeight, SWP_NOACTIVATE);

Das wars.
Und das Ergebnis!
Die ListBox ist jetzt TopLevel (geht über die MainForm hinaus und transparent.)

gruss