145
if (Field <>
nil)
and (Field.FullName = NameSortField)
then begin
if Desc
then SortMarker:=smUp
else SortMarker:=smDown;
end;
end;
procedure TfmMain.DBGrid1
TitleBtnClick
(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;
6.
Бағдарламаны орындау үшін іске қосыңыз және бағаналар атауларында
батырмалардың жұмысын тексеріңіз – бағананың жаңа атауын шерткенде батырма осы
бағана атауында пайда болуы қажет, ол орналасқан бағана атауын шерткенде батарма өзінің
сыртқы түрін өзгерту керек.
Достарыңызбен бөлісу: 
