Ahoj taktaky,
wenn du der ListBox ein Kontext-Menü zuordnest (property PopupMenu), dann musst du dich um die rechte Maustaste nicht kümmern.
Den horizontalen Rollbalken setze ich so:
Delphi-Quellcode:
procedure AdjustScrollWidth(lb: TCustomListBox);
var
i, maxWidth: Integer;
begin
maxWidth := 0;
with lb do
begin
for i := 0 to Pred(Items.Count) do
maxWidth := Max(Canvas.TextWidth(Items[i]), maxWidth);
ScrollWidth := maxWidth + 4;
end;
end;
Die Auswahl aller Items kannst du mit der Methode SelectAll() machen.
Grüße vom marabu