gridin title click özelliğine yazıp tıklanan alana göre bir sıralama yapar
if grislem.Tag=0 then
begin
QrIslem.SQL.Add('Select * From AlinanFaturaIslem Where '+sart+' order by ' +column.fieldname +' asc');
end
else
begin
QrIslem.SQL.Add('Select * From AlinanFaturaIslem Where '+sart+' order by ' +column.fieldname +' desc');
end;
if grislem.Tag=0 then grislem.Tag:=1 else grislem.Tag:=0;
gezici_