Формы

← →
Swinger (2002-03-26 23:55) [3]

Спасибо за ответ! :)
1) Попытался я узнавать имя этих форм:

procedure TForm2.FormCreate(Sender: TObject);
begin
label3.caption:=Form2.Name;
end;

При создании первой формы - вылетает ошибка об access violation.. вторая форма создаётся с именем Form2, потом, как ты и сказал, Form2_1 и т.д.. Как избавиться от ошибки?

2)Как мне закрыть эту форму с помощью FreeAndNil?
я пытаюсь так:

procedure TForm2.Office97Button2Click(Sender: TObject);
var name:string;
begin
name:=Form2.Name;
FreeAndNil(name);
end;

Но при попытке так закрыть форму - access violation.. :(

3) И как мне потом обращаться, к примеру, к форме Form2_2? Я попытался сделать так: Form2_2.textlabel.caption:="lalala"; но он ещё ипри компиляции начал ругаться, т.к. такой формы конечно же нет..

Попытался я ещё сделать с If Assigned(Form2_2) но при компиляции сообщает что такой формы нет

Формы Найти похожие ветки