Stringgrid и Pagecontrol

[Mannaward]

Здравствуйте, в программе имеется 16 tabsheet и на каждом по stringgrid, как сделать чтобы какое-либо действие над stringgrid (импорт или экспорт данных, добавление записей) производилось именно в тот stringgrid, который на данный момент в активном tabsheet ?

[denisbrain]

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

Здравствуйте, в программе имеется 16 tabsheet и на каждом по stringgrid, как сделать чтобы какое-либо действие над stringgrid (импорт или экспорт данных, добавление записей) производилось именно в тот stringgrid, который на данный момент в активном tabsheet ?

var x:integer;
begin
for x:=0 to form1.ComponentCount-1 do
  if form1.Components[x].ClassType=TStringGrid then
    if TStringGrid(form1.Components[x]).Parent=form1.PageControl1.ActivePage then
    Showmessage(TStringGrid(form1.Components[x]).Name);
end;

например так


примеры с моего блога - функции для работы с StringGride
http://netsoftware.ucoz.ru/search/CS...0%D0%B9%D0%BB/

http://netsoftware.ucoz.ru/search/StringGrid/