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

Вниз

При создании закладок программа зависает.   Найти похожие ветки 

 
Gear   (2007-03-22 15:35) [0]

Добрый день.
Имею на форме компонент самописный и PageControl, на котором динамически создаю TabSheets процедурой.
Если эту процедуру привязать к кнопке, то всё замечательно создаётся. Но стоит только функцию повестить на событие от компоненты, то страница создаётся и приложение повисает. Непойму в чём дело. Что может быть?
Вот немного кода:

procedure TForm4.CreateTab(name: string);
var
 T: TTabSheet;
begin
 T := TTabSheet.Create(Self);
 T.Caption := name;
 T.PageControl := PageControl1;
end;

//так работает
procedure TForm2.Button1Click(Sender: TObject);
begin
 Form4.CreateTab("закладка");
end;

//а так создаёт и сразу виснет
procedure TForm2.MyComponent1OnRead(mess: string);
begin
Form4.CreateTab(mess);
end;

//В самой компоненте:

TOnRead = procedure(mess:string) of object;
...
private
 FOnRead: TOnRead;
...
published
 property OnRead: TOnRead read FOnRead write FOnRead;
...

procedure TMyComponent.OnData(Response:string);
begin
...
 if Response<>"" then
       if assigned (FOnRead) then
          FOnRead("test");
end;


 
ЮЮ ©   (2007-03-24 07:40) [1]

Когда вызавется обработчик OnRead твоего компонента? Существует ли на данный момент Form4. Поставить брэкпоинт в предложенных нам строках и последовать дпльше с помощью отладчика не учили?

P.S. Может всё-же эти манипуляции делать не в OnRead компонента, а в OnCreate  формы(TForm2.FormCreate или TForm4.FormCreate в зависимости от того, кто позднее создается), коль уж компонент сам не может создать всё, что ему надо и этот код переносится в методы TForm2 ?



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

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

Наверх




Память: 0.47 MB
Время: 0.056 c
1-1175036331
Димон
2007-03-28 02:58
2007.05.20
Ошибки при добавлнии элемента в TListView


2-1177576431
umbra
2007-04-26 12:33
2007.05.20
что содержит строка после SetLength?


2-1178260166
allucard
2007-05-04 10:29
2007.05.20
Как при печати разбить форму на две страницы.


6-1163577244
Helen
2006-11-15 10:54
2007.05.20
Закачка файла с ftp-сервера


1-1174906870
tytus
2007-03-26 15:01
2007.05.20
Как нормально заставить работать CM_MOUSELEAVE