Alguém já fez o teste do Bug no Delphi 7.0 Enterprise Ed.

Delphi

26/03/2003

Ao criar uma aplicação MDI - CLX :shock: com vários forms, um principal e vários MDIChilds e utilizando o seguinte código para abrir os forms filhos:

if (nomeform = nil) then
Application.CreateForm(Tnomeform, nomeform);
nomeform.BringToFront;
nomeform.SetFocus;

para fechar os forms filhos (no OnClose):

action := caFree;
nomeform := nil;


Ao abrir e fechar os forms várias vezes (muitas e muitas vezes) o programa emite mensagem ´Invalid Pointer Operation´, gostaria que aqueles que possuem o Delphi 7.0 Enterprise Edition fizessem o teste e verificassem se o problema também ocorre, caso ocorra por favor me respondam, ou se alguém tiver alguma idéia para contornar o problema ficarei muito agradecido.


Anonymous

Anonymous

Curtidas 0
POSTAR