Код: Выделить всё
var isExp: boolean;
procedure Button7Click(Sender: TObject);
begin
if not isExp then
begin
dxPageControl1.Visible := True;
dxQueryGrid1.Width := Self.Width - dxPageControl1.Width - 19;
dxMemo1.Width := Self.Width - dxPageControl1.Width - 19;
isExp := True;
dxButton7.Hint := 'Скрыть фильтры';
end
else
begin
dxPageControl1.Visible := False;
dxQueryGrid1.Width := Self.Width - 19;
dxMemo1.Width := Self.Width - 19;
isExp := False;
dxButton7.Hint := 'Показать фильтры';
end;
end;
procedure Form_Create;
begin
dxButton7.OnClick := @Button7Click;
dxPageControl1.Visible := False;
dxQueryGrid1.Width := Self.Width - 17;
dxMemo1.Width := Self.Width - 17;
end; 