[Black Raider]

Сообщение от windaws

как просто все оказывается а я думаю может там событие какое есть чтобы определяло второй щелчек.....

А что за флаг, интересно?

Объяви глабальную переменную

Код:

1	fl:boolean;

и на шелчке тогда будет вот так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.DBGrid1TitleClick(Column: TColumn); Var   f:string; begin   f:= Column.FieldName;   fl:=not fl;   if fl then dm.Tovar.Sort:=f   else     dm.Tovar.Sort:=f + ' DESC'; end;