Allgemeine Frage zur Verwendung von TListbox

[Corpsman]

Hi,

Ich Programmiere schon seit über 7 Jahren und benutze sehr Häufig die Klasse Tlistbox.

Seit dem ersten mal mus ich jedesmal folgenden Code einfügen wenn ich Tlistbox benutzen will.

Delphi-Quellcode:

Procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Begin
  ListBox1.ItemIndex := ListBox1.ItemAtPos(point(x, y), true);
End;

Ich weis schon was der Code macht, so ist das nicht, nur finde ich es irgendwie blöd das man das so machen mus.

Erst vor Kurzer Zeit habe ich eine TListbox für die DelphiX Komponenten gebaut. Hier habe ich natürlich den Code direct in meine Klasse eingebaut. ( Was übrigens auch nicht besonders schwer war )

Die Frage die sich mir stellt, gibt es auch eine andere Möglichkeit den oben geschriebenen Code um zu setzen ?

Das man ihn Braucht steht auser Frage.

Corpsman