DropDown / TComboBox in ListView Header

[TUX_der_Pinguin]

Guten Morgen Delphianer,

ich programmiere gerade an einer kleinen Software und da kam mir eine Idee bzw. ich habe mich gefragt ob und
wie folgendes Möglich wäre. Ich möchte gern eine zweispaltige Liste, kein Problem entweder TListView oder
TVirtualStringTree, in einer Spalte sollte jedoch eine Auswahlmöglichkeit eingebaut werden. Jedoch nicht
in der Zelle sondern im Header, da habe ich mich gefragt ob man irgendwie ein PopupMenu als DropDown oder
eine ComboBox als Auswahl in eine Header Spalte bekommt.

Mein erster Gedanke war das gleiche zu tun wie bei einer ProgressBar und einer StatusBar Komponente.

Zuweisen des Fortschrittsbalkens der Statuszeile

Delphi-Quellcode:

ProgressBar1.Parent := StatusBar1;

Position des Fortschrittsbalkens bestimmen

Delphi-Quellcode:

var
PanRect : TRect;

begin
  SendMessage(StatusBar1.Handle, SB_GETRECT, 0, Integer(@PanRect));
  ProgressBar1.BoundsRecht := PanRect;

So mein Problem ist wie setzt ich das Konzept auf ListView und ComboBox um, ich müßte ja irgendwie an das "Rect" der
Spalte im ListView kommen und da habe ich keine Idee und finden konnte ich dazu auch nicht viel passendes.

Das Ziel wäre, eine Spalte mit Text daneben die ComboBox und vergrößert oder verkleinert man eine der Spalten so sollte
die ComboBox sich "mit bewegen" können, ansonsten könnte ich auch einfach die Komponente im Designer positionieren, das
wäre eher die "faule" und nicht ganz so schöne Lösung.

Vielleicht hat ja jemand von euch eine idee.

mfg

TUX

p.s. Programmiert in Delphi 2007 Prof. R2

[MarcoWarm]

Hi Tux,

Nimm doch einfach das OnColumnClick Ereignis des TListView und popp dann dein eigenes PopupMenu auf.

Gruß
Marco