[DungeonLords]

Привет всем. Использую такой код:
procedure TForm1.AttachTOGridClick(Sender: TObject);

Код:

Var AdvForm:TForm;
ListOFGrids:TListBox;
i:Integer;
begin
AdvForm:= TForm.Create(nil);
AdvForm.Left:=Form1.Left+round(Form1.Width/2);
AdvForm.Top:=Form1.Top+round(Form1.Height/2);
AdvForm.Visible:=True;
ListOFGrids:=TListBox.Create(Self);
ListOFGrids.Items.Add('YYYY');
end;

Не пойму, почему на последней строке прога вылетает. Если её закомментировать, ошибка пропадёт.

[NIch]

Как это закомментировать??? Просто написать после нее комментарий через // ???
Еще вот тут

Код:

ListOFGrids:=TListBox.Create(Self);

попробуй так

Код:

ListOFGrids:=TListBox.Create(AdvForm);

или добавь

Код:

ListOFGrids.Parent := AdvForm;

Т.е. просто указать родителя твоего ListOFGrids...

[DungeonLords]

Спасибо. Работает.