Tadotable

  • Автор темы WereWolf
  • Дата начала
W

WereWolf

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

zubr

Гость
#2
Что то типа:
Код:
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;