In der Hilfe habe ich folgendes gefunden:
Quelltext
1: 2: 3: 4: 5: 6:
| procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ColumnToSort := Column.Index; (Sender as TCustomListView).AlphaSort; end; |
Das funktioniert ja auch wunderbar. Aber jetzt habe ich ein Problem, welches ich schon öfters in Delphi hatte (kommt vielleicht daher, dass ich nur Turbo Pascal richtig gelernt habe). Ich will diese Prozedur nicht ausführen, wenn jemand auf eine Column Spalte klickt, sondern bei Form.Create (also am Anfang automatisch). Einfach die Zeilen in die andere Prozedur schieben geht nicht, da dann gemeckert wird, dass Column ja nicht bekannt ist.
Also wie kann ich sowas in einer anderen Prozedur einbinden ?