Tlistbox-Steuerelement

[Sharky]

Zitat von runger:

... aber ich wills aber trotzdem wissen.

Hai runger,

hier mal eine mögliche Lösung:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    OldWindowProc: TWndMethod;
    procedure MyWindowProc(var Message: TMessage);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWindowProc := ListBox1.WindowProc;
  ListBox1.WindowProc := MyWindowProc;
end;

procedure TForm1.MyWindowProc(var Message: TMessage);
begin
  OldWindowProc(Message);
  if ((Message.Msg = WM_VSCROLL) or (Message.msg = WM_Mousewheel)) then
  begin
    ListBox1.ItemIndex := ListBox1.TopIndex;
    Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;