Wie kann ich die Prozedur Tform1.TlistView1ColumnClick(Sender: TObject;
Column: TListColumn) durch zum Beispiel einem ButtonClick aufrufen.
In meinem Programm sollen die Einträge einmal nah Name oder Nummer sortiert werden, dies habe ich so realisiert:
<pre><font size=3>
function DoColumnSort(Item1, Item2: TListItem; Col: integer): integer; StdCall;
var
s1, s2: string;
begin
case Col of
0: begin
s1:= Item1.Caption;
s2:= Item2.Caption;
end;
else
if (Item1.SubItems.Count>=Col)and
(Item2.SubItems.Count>=Col) then
begin
s1:= Item1.SubItems[Col-1];
s2:=Item2.SubItems[Col-1];
end;
end;
Result:= lstrcmp(pchar(s1),pchar(s2));
end;
procedure Tform1.TlistView1ColumnClick(Sender: TObject;
Column: TListColumn);
var
lv1: TListView;
begin
lv1:= (Sender as TListView);
lv1.CustomSort(@DoColumnSort,Column.Index);
end;
</pre>
Nun soll dies nicht nur geschehen wenn ich auf den Column klicken sondern auch wenn ich auf einem Button drücke.
Column: TListColumn) durch zum Beispiel einem ButtonClick aufrufen.
In meinem Programm sollen die Einträge einmal nah Name oder Nummer sortiert werden, dies habe ich so realisiert:
<pre><font size=3>
function DoColumnSort(Item1, Item2: TListItem; Col: integer): integer; StdCall;
var
s1, s2: string;
begin
case Col of
0: begin
s1:= Item1.Caption;
s2:= Item2.Caption;
end;
else
if (Item1.SubItems.Count>=Col)and
(Item2.SubItems.Count>=Col) then
begin
s1:= Item1.SubItems[Col-1];
s2:=Item2.SubItems[Col-1];
end;
end;
Result:= lstrcmp(pchar(s1),pchar(s2));
end;
procedure Tform1.TlistView1ColumnClick(Sender: TObject;
Column: TListColumn);
var
lv1: TListView;
begin
lv1:= (Sender as TListView);
lv1.CustomSort(@DoColumnSort,Column.Index);
end;
</pre>
Nun soll dies nicht nur geschehen wenn ich auf den Column klicken sondern auch wenn ich auf einem Button drücke.
Comment