Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.259 Beiträge
 
Delphi 2006 Professional
 
#1

TListBox: Nicht srcollen bei .SELCTED := True

  Alt 31. Dez 2002, 10:58
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"
  Mit Zitat antworten Zitat