1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Tadotable

Тема в разделе "Delphi - программирование", создана пользователем WereWolf, 22 мар 2008.

  1. WereWolf

    WereWolf Гость

    Репутация:
    0
    :huh: В моей базе несколько таблиц. Мне надо выборочно подключать 1 выбраную таблицу.
    Выбор таблиц осуществляется с помощью Label.
    Как это зделать правильно? :)
     
  2. zubr

    zubr Гость

    Репутация:
    0
    Что то типа:
    Код:
    procedure TForm1.Label1Click(Sender: TObject);
    var
    i:Integer;
    begin
    ADOTable1.Active:=False;
    ADOTable1.TableName:=TLabel(Sender).Caption;
    ADOTable1.Active:=True;
    TLabel(Sender).Font.Color:=clRed;
    For i:=0 to ComponentCount-1 do
    If (Components[i] is TLabel) and (Components[i]<>Sender) then
    TLabel(Components[i]).Font.Color:=clBlack;
    end;
     

Поделиться этой страницей