|
Тема |
Проблем с Create на TForm наследник |
|
Автор |
Waz Gaa (_) |
|
Публикувано | 18.06.03 10:38 |
|
|
Значи имам един обект за визуализиране на форми. Той държи лист с формите и коя как трябва да се показва :
TShow = record
Form: TForm;
FormClass: TFormClass;
Position: TWinPos;
end;
Има метод за добавяне на форми както и един за паказването им. Проблема възниква, когато си пускам една вътрешна процедура за създаване на формата, ако не е създадена (CreatIfNil) (все едно се пуска Application.CreateForm).
Ето каква е последователността...
Значи трябва ми при добавяне на форма да задавам и променливата за достъп до формата. Пример:
AddForm(Form1, TForm1, wpTop);
Тъй като имам няколко форми, с които се занимава обекта за визуализация, ми трябва да ги съхранявам и аз го правя с масив от TShow записи. Но тук явно си изгубвам Form1 като променлива. А на мен ми трябва да мога да си променям от обекта за визуализация. Затова като извикам процедурата CreatIfNil, дава грешка (access violation).
Въпроса ми е как да си държа Form1, Form2 и т.н , така че да мога да ги подавам на CreatIfNil и всичко да работи ок.
ПП Цялата работа е малко замотана и незнам дали успях да опиша добре проблема. Надявам се, че ще има идеи...
by Waz Gaa
|
| |
|
|
|