PageControl. На каждой фкладке одинаковый врейм но действие на всех разное.

[Человек_Борща]

Доброго времени суток!

Возникла идея перехвата ввода/вывода консолек в программу. Что я уже реализовал. Теперь проблема:
Для каждого окна создаётся свой TabSheet с названием консольного окна.
На TabSheet создаётся фрейм с заранее расположенными компонентами, такими как:
TEdit
TMemo
TButton

Тобственно загвоздка с вводом-выводом.
С одной консолью понятно как делать. На кнопуки все побросать.
А если консолек и вкладок многоо?

Как показывать программе от какой/в какую консоль забирать/отправлять информацию?

[Аватар]

Использовать PageControl.ActivePage

[GoodDA]

фрейм это аналог формы,
во фрейме храни название окна-консоли,

из программы для обращений к нужному фрейму заведи список фреймов, и перебором находи тот в котором совпадает название окна-консоли.

list:tlist;

при добавлении фрейма -
list.add(newFrame);

при поиске
for i:=0 to list.count-1 do
if TMyFrame(list[i]).ИмяКонсоли = 'НужноеИмя' then
begin
TMyFrame(list[i]).memo1.lines.add('');
end;

[Человек_Борща]

Понял, спасибо.

[chertovich]

PageControl1.TabIndex