Подскажите, как добавить стрелочку в заголовок колонки DBGrid'a, которая бы указывала о сортировке, как здесь:



Вот как это сделано в EhLib'e:



Неужели никто не знает как это сделать????   

Это сообщение отредактировал(а) chikistbuch - 9.4.2012, 19:07

Ну во первых этот грид на картинке не обычный DBGrid а DefExpress-совский
там всё это есть.
а если нужна сортировка по клику на заголовок, то:

//Если DBGrid к Query присоединен то так:
procedure TForm1.FormCreate(Sender: TObject);
Var path:string;
begin
  GetDir(0,path);
  ADOConnection1.Close;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+'\DB.mdb;Persist Security Info=False';
  ADOConnection1.Connected:=true;
  QSQL:='SELECT * from main ';
  With ADOQuery2 do begin
    Close;
    SQL.Clear;
    SQL.Add(QSQL);
    Open;
  end;
  ADOTable1.Open;
end;
 
//В событии DBGrid OnTitleClick прописываем.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var f:string;
begin
  f:= Column.FieldName;//без этой переменной у меня работать не хочет
  with ADOQuery2 do
  begin
     Close;
     SQL.Clear;
     SQL.Add(QSQL);
     SQL.Add('ORDER BY '+f);
     Open;
  end;
end;
 
 
//Если Table к DBGrid подключен то в OnTitleClick пишем.

procedure TForm1.DBGrid2TitleClick(Column: TColumn);
Var f:string;
begin
    f:= Column.FieldName;
    ADOTable1.Sort:=f;
end;
 

а где его взять и бесплатен ли он?

devexporess.com
такие гриды бесплатными не бывают

Так что, в стандартный DBGrid эту стрелку вставить нельзя???? Подскажите хоть как узнать ширину колонки, координату начала колонки, хоть что-то к чему можно было бы привязаться

Как стандартный - не знаю. Можно jvcl грид юзать (ultim хороший), старый бесплатный EH (3.6 кажется).

Кто сказал, что нельзя? Ты плохо ищешь. Я уверен, что в интернете должны быть готовые примеры.

Добавлено через 1 минуту и 2 секунды


А что, свойства, методы и события грида и колонок самому изучить нельзя, справку почитать?

Дружище, подскажи как к этим метотодам или как они называються, константы что ли обращаться




Value    Indicates changes to 

cvColor    
The column's Color property. 

cvWidth    
The column's Width property. 

cvFont    
The column's Font property. 

cvAlignment    
The column's Alignment property. 

cvReadOnly    
The column's ReadOnly property. 

cvTitleColor    
The column title's Color property. 

cvTitleCaption    
The column title's Caption property. 

cvTitleAlignment    
The column title's Alignment property. 

cvTitleFont    
The column title's Font property. 

cvImeMode    
The column's ImeMode property. 

cvImeName    
The column's ImeName property.

к ним не надо обращаться. Это константы. Значения констант присваиваются свойствам, например, или переменным.

Так как присвоить переменной значение константы


Хотя мне это и не поможет в данной ситуации, но на будущее помогло бы разобраться, Спасибо.

Это сообщение отредактировал(а) chikistbuch - 16.4.2012, 19:36

это же азЫ О_о
как же ты без них собрался программировать

как



до этого cvWidth нужно же как-то добраться

мы же не пишем


Так вот вопрос, что нужно написать чтобы добраться, к примеру, к cvWidth

Кстати, спасибо что так быстро отреагировал!!


Это сообщение отредактировал(а) chikistbuch - 16.4.2012, 19:56

ничего не понял, нет чтобы нормально объяснить! ну да ладно, буду сам пытаться ((((((((((  

Значение cvWidth нужно чему-то присвоить.

Добавлено через 1 минуту и 52 секунды
может быть так?

ColumnValue := [здесь перечисляй нужные константы];

например:





Добавлено через 2 минуты и 18 секунд
Тебе что, сложно в диспетчер свойств посмотреть?

Добавлено через 3 минуты и 57 секунд
ну и можно проверять

почитай про множества и перечислимые типы