Hallo,
seit kurzem verwende ich die VirtualStringTree-Komponente. Jetzt soll mit der Komponente eine Liste dargestellt werden und beim HeaderClick die Liste sortiert werden:
Delphi-Quellcode:
//Sortieren
procedure TForm1.VSTHeaderClick(Sender: TVTHeader; Column: TColumnIndex;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
VST.SortTree(column,sender.SortDirection,true);
if (sender.SortDirection=sdascending) then
sender.SortDirection:= sddescending
else
sender.SortDirection:= sdascending
end;
Wenn ich nun aber das Programm starte und das erstemal auf eine Columne klicke passiert gar nichts. Erst beim 2.Mal sortiert sich die Liste. Woran liegt das?
