Скачать: CL | DM;

Проблема вызова функции при событии FormActivate   Найти похожие ветки 

← →
VHS   (2004-07-23 14:18) [0]

История:

Создаю форму, которая будет как MDIChild, в ней, на равне с описанием всех элементов, добавляю свои ф-ции. Так:

type
TfrmEditPayBlacklist = class(TForm)

......

public
idxs : TStringList;
idxk : TStringList;
procedure ShowList;
end;

Естественно убираю в проекте автосоздание формы.
Теперь, из главного (родительского) окна, создаю вот это свое окно:

procedure TfrmMain.actShowBlackListExecute(Sender: TObject);
begin
with TfrmBlackList.Create(application) do Show;
end;

Окно появляется. Все рады. Все выполняется. Но, усложняем задачу. Не закрывая этого созданного окна, создаем его еще раз, выполняя вушеуказанную ф-цию. Получаем второе, такоеже окно. Вродебы опять все в норме.

Суть проблемы:

В создаваемой форме, на метод OnActivate стоит ф-цция:

procedure TfrmBlackList.FormActivate(Sender: TObject);
begin
ShowList; //можно было задать как self.ShowList - результат тотже.
end;

И когда мы, имея два одинаковых дочерних окна на экране, переходим на предыдущее окно, вызывая событие FormActivate, то при вызове ф-ции ShowList, получаем Error access viotation. Причем, что странно, затыкается олько на ф-циях, которые я задаю сам.

А. Вот еще. Этот SHowList задан в программе так:

procedure TfrmBlackList.ShowList;
var
....
begin
......

end;

Вопрос:

Как правильно задавать процедуры в динамически создаваемых окнах чтобы небыло такой вот фигни? Или надо по-другому создавать эти формы? Или еще чего?

---

← →
Sandman25 ©   (2004-07-23 14:20) [1]

В ShowList есть обращения к frmBlackList?

---

← →
VHS   (2004-07-23 14:27) [2]

Нет.
Спасибо за помошь проблема была найдена. Странно, но ошибка выдавалась при обращении к application.ProcessMessages.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c