Tlistbox-Steuerelement

[runger]

Hallo,

wir benutzen eine TListbox um Zahlen auszuwählen.
Die Listbox enthält dabei die Zahlen 1 bis 16 und ist nur so hoch, dass eine Zahl sichtbar ist.
Frage:
Wie kriege ich einen Änderungsevent für das Steuerelement auf der rechten Seite, also die beiden Pfeile.

Tut mir leid wenn das eine einfache Frage ist, aber ich steh voll auf dem Schlauch.

Rainer

[Luckie]

Wäre da nicht eine ComboBox oder ein SpinEdit sinnvoller?

[runger]

Hallo Luckie,
ich glaub auch, aber ich wills aber trotzdem wissen.

Rainer

[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;

[BrunoT]

Hallo runger,

suche mal unter Scrollbar in der Windows SDK- Hilfe.

da findest du vieleicht was.

mfg

BrunoT