Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

Работа с PageControl   Найти похожие ветки 

 
Dash Rendar   (2007-08-10 14:05) [0]

Доброго времени суток! Суть моей проблемы: есть PageControl с одной созданной в design-time страницей и набором контролов на ней. Подразумевается, что в процессе выполнения программы будут создаваться дополнительные страницы с тем же набором контролов, поэтому обработчик события OnClick я вынес в отдельную процедуру с последующим присваиванием.

Так вот, проблема в следующем: первая страница работает нормально, а последующие (которые создаются в run-time) обрабатывать присвоенное событие отказываются напрочь.
Привожу фрагменты кода.


//в описании формы
 private
   procedure Click(Sender: TObject);

//текст процедуры
procedure TForm1.Click(Sender: TObject);
begin
for i:=0 to ComponentCount-1 do
 if (Components[i] is TTreeView) and ((Components[i] as TTreeView).Parent=PageControl1.ActivePage)  then
  PageControl1.ActivePage.Caption:=(Components[i] as TTreeView).Selected.Text;
end;

//присваивание процедуры событию на заранее созданной странице, все работает
procedure TForm1.FormShow(Sender: TObject);
begin
TreeView1.OnClick:=Click;
end;

//создание новой страницы с новым TreeView
procedure TForm1.Action1Execute(Sender: TObject);
var ts: TTabSheet; tv: TTreeView;
begin
ts:=TTabSheet.Create(PageControl1);
ts.Parent:=PageControl1;
ts.PageControl:=PageControl1;
ts.ImageIndex:=0;

tv:=TTreeView.Create(ts);
ts.InsertControl(tv);
tv.Align:=alClient;
tv.OnClick:=Click;
end;


В чем моя ошибка?


 
MBo ©   (2007-08-10 14:12) [1]

>for i:=0 to ComponentCount-1 do
здесь ты перебираешь компоненты, принадлежащие форме

>tv:=TTreeView.Create(ts);
а здесь соз0даешь компонент, принадлежащий тАбу.

Впрочем, перебирать ничего и не нужно, т.к. Sender не зря передается в OnClick

еще одно - нехорошо называть метод Click, поскольку такой метод уже есть у TControl


 
Dash Rendar   (2007-08-10 14:22) [2]

То есть мне надо переписать примерно так?

>
procedure TForm1.Click(Sender: TObject);
begin
PageControl1.ActivePage.Caption:=(Sender as TTreeView).Selected.Text;
end;


Насчет названия метода - каюсь, забыл про TControl.


 
MBo ©   (2007-08-10 14:50) [3]

>То есть мне надо переписать примерно так?
Видимо, да. Проверки не помешают - Selected на Nil, а если этот обработчик может быть вызван и другими компонентами -  и   if Sender is TTreeView


 
Dash Rendar   (2007-08-10 14:52) [4]

Благодарю за помощь.



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
6-1171944967
zap8
2007-02-20 07:16
2007.10.28
(GET) Как более эффективно "избавиться от заголовка" полученнного


2-1191410402
vigo_
2007-10-03 15:20
2007.10.28
Сохранение в Excel


15-1191366240
ERGef
2007-10-03 03:04
2007.10.28
Sun ONE Studio ME как создать jar и jad файлы??


2-1191514478
Pacific
2007-10-04 20:14
2007.10.28
Можно ли...


2-1191434154
Riply
2007-10-03 21:55
2007.10.28
Различное поведение в зависимости от юнита.