Помогите с сортировкой.

[Dissonance]

Замысел такой: Есть 2 таблицы. Для каждой из них должны быть свои кнопки сортировки. Но на одной форме. Смысл таков при выборе допустим 2-ой таблицы radiobutton'ы предназначенные для 1-ой таблицы исчезают и появляются для 2-ой. и наоборот при выборе 1 таблицы radiobutton'ы предназначенные для 2-ой исчезают. Думаю это надо с помощью Visible-true/false. Но чего то не хватает помогите срочно надо сделать. Вот примерный код:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
adotable1.Close;
if combobox1.Text= 'Список программ' then
adotable1.TableName:='Список программ';
radiobutton1.visible:=true;
radiobutton2.visible:=true;
radiobutton3.visible:=false;
radiobutton4.visible:=false;
if combobox1.Text= 'Компьютеры' then
adotable1.TableName:='Компьютеры';
radiobutton1.visible:=false;
radiobutton2.visible:=false;
radiobutton3.visible:=true;
radiobutton4.visible:=true;
adotable1.Open;
end;

[Stilet]

Но чего то не хватает

НАверное кода в студии.

[_SERGEYX_]

при выборе допустим 2-ой таблицы radiobutton'ы от первой исчезают и появляются для 2-ой

...хм, вообще-то, удобнее сортировать таблицу при клике на заголовке грида.
А вообще, если в твоем Гриде есть событие OnEnter, то

procedure TfrmFourSix.DBGridEh3Enter(Sender: TObject);
begin
Radiobutton1.Show;
Radiobutton2.Hide;
Radiobutton3.Hide;
end;

[Dissonance]

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

Замысел такой: Есть 2 таблицы. Для каждой из них должны быть свои кнопки сортировки. Но на одной форме. Смысл таков при выборе допустим 2-ой таблицы radiobutton'ы предназначенные для 1-ой таблицы исчезают и появляются для 2-ой. и наоборот при выборе 1 таблицы radiobutton'ы предназначенные для 2-ой исчезают. Думаю это надо с помощью Visible-true/false. Но чего то не хватает помогите срочно надо сделать. Вот примерный код:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
adotable1.Close;
if combobox1.Text= 'Ñïèñîê ïðîãðàìì' then
adotable1.TableName:='Ñïèñîê ïðîãðàìì';
radiobutton1.visible:=true;
radiobutton2.visible:=true;
radiobutton3.visible:=false;
radiobutton4.visible:=false;
if combobox1.Text= 'Êîìïüþòåðû' then
adotable1.TableName:='Êîìïüþòåðû';
radiobutton1.visible:=false;
radiobutton2.visible:=false;
radiobutton3.visible:=true;
radiobutton4.visible:=true;
adotable1.Open;
end;

[Snoopy]

Составных операторов нехватает

[Stilet]

Так а сортировка то тут при чем? Где операторы этого дияния?

[Dissonance]

Код для сортировки я знаю всё есть. На одной форме с помощью комбобокса у меня открываются разные таблицы. Мне нужно чтобы при нажати на комбобокс при выборе разных таблиц скрывались/показывались разные радио батаны,которые соответствуют только той таблице, которая выбрана. Я хочу сделать это с помощью Visible, меняя его значение на true/false, но у меня где то ошибка или чегото не хватает. Помогите с этим. Саму сортировку я сделал.

[Dissonance]

Никто помочь не может?

[Snoopy]

if combobox1.Text= 'Список программ' then
begin
adotable1.TableName:='Список программ';
radiobutton1.visible:=true;
radiobutton2.visible:=true;
radiobutton3.visible:=false;
radiobutton4.visible:=false;
end;
if combobox1.Text= 'Компьютеры' then
begin
adotable1.TableName:='Компьютеры';
radiobutton1.visible:=false;
radiobutton2.visible:=false;
radiobutton3.visible:=true;
radiobutton4.visible:=true;
end;
adotable1.Open;
end;

[Stilet]

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