Hai ihr,
mit folgendem Code selectiere ich aus einem PopupMenue die Einträge in
einer ListBox:
Code:
[b]procedure[/b] TFRM_Mp3_suche.Allemarkieren1Click(Sender: TObject);
[b]var[/b]
ndx : Integer;
[b]begin[/b]
FileListe.Cursor := crHourGlass;
[b]for[/b] ndx := 0 [b]to[/b] (FileListe.Items.Count - 1) [b]do[/b]
[b]begin[/b]
[b]Case[/b] (sender [b]As[/b] TMenuItem).Tag [b]of[/b]
0 : FileListe.Selected[ndx] := True;
1 : FileListe.Selected[ndx] := False;
2 : FileListe.Selected[ndx] := [b]Not[/b] (FileListe.Selected[ndx]);
[b]end[/b];
[b]end[/b];
FileListe.Cursor := crDefault;
[b]end[/b];
Jetz ist es aber so, das bei Case 0 und 2 die Listbox gesrollt wird.
Kann ich das verhindern?
Gruss und guten Rutsch
Stephan B.
"Lasst den Gänsen ihre Füßchen"