RxDBGrid1 компонентін қысқаша болуы үшін DBGrid1 (Name қасиетін өзгерту) атауын өзгерту.
Объектілер инспекторында DBGrid1 үшін True мәнінде TitleButtons қасиетін белгілеңіз.
unMain модуліне төменде қара шрифтпен көрсетілген екі ауыспалының хабарламасын қосыңыз:
……………………………
var
fmMain: TfmMain;
NameSortField:string; Desc:boolean; implementation
……………………………
NameSortField ауыспалысы әрі қарай сұрыптау өткізілетін кесте өрісін анықтау үшін, ал Desc өсу немесе кему сұрыптау тәртібін анықтау үшін. қолданылады.
fmMain формасы үшін төменде көрсетілген оқиға өндеуші OnCreate құрыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
begin NameSortField:=DBGrid1.Columns[0].FieldName;
Desc:=False;
end;
DBGrid1 компонентінің төменде көрсетілген OnGetBtnParams және OnTitleBtnClick оқиғалар өндеушілерін құрыңыз: procedure TfmMain.DBGrid1GetBtnParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; var SortMarker: TSortMarker; IsDown: Boolean);
begin if (Field <> nil) and (Field.FullName = NameSortField) then begin if Desc then SortMarker:=smUp
else SortMarker:=smDown;
end; end;
procedure TfmMain.DBGrid1TitleBtnClick(Sender: TObject; ACol: Integer; Field: TField);
begin if (Field <> nil) then begin if NameSortField=Field.FullName then Desc:=Not(Desc)
else begin Desc:=False;
NameSortField:=Field.FullName;
end; end; end; Бағдарламаны орындау үшін іске қосыңыз және бағаналар атауларында батырмалардың жұмысын тексеріңіз – бағананың жаңа атауын шерткенде батырма осы бағана атауында пайда болуы қажет, ол орналасқан бағана атауын шерткенде батарма өзінің сыртқы түрін өзгерту керек.
