application.CreateForm() porque o delphi permite isso

07/04/2006

0

Funciona , não é aconselhável , é errado (Ou pelo menos acho que sim)
mas me intriga.. O delphi não deveria aceitar

var
mybotao:button;
begin
application.CreateForm(TButton,myBotao);
myBotao.Parent:=Self;
end;


pórque que estou questionando isso.. Afinal quem ja tentou criar um botão assim ??? meia duzia de gato pingado talvez :!: :!:

Mas e assim

application.createform(TQuickReport2,QuickReport2);
QuickReport2.Preview;


Desse jeito , ja vi muitas vezes aqui no site.. Mas se voce observar a definição de TQuickReport2
[b:1aff46103d]type
TQuickReport2 = class(TQuickRep)[/b:1aff46103d]

Criar relatorios no QuickReport , desta maneira o numero de gatos pingados aumenta consideravelmente.. Ja não é nen mais gatos pingatos mas sim gatos amontoados..

Na minha concepção O correto deveria ser assim

try
QuickReport2:=tQuickReport2.Create(nil);
QuickReport2.Preview;
finally
FreeandNil(QuickReport2);
end;

com alguns ajustes .. talves um assigned para evitar que novas instancias do QuickReport sejam criadas... Emfim isto é a gosto.

O que quero mexer aqui é sobre a forma de criar esse quickReport..

Tem lógica isso???

[b:1aff46103d]application.createform(TQuickReport2,QuickReport2);[/b:1aff46103d]

eu acho que não...

Por falar em criação de componentes e formulários o michel publicou um artigo muito simples mas muito direto sobre esse assunto na edição 72 da revista.. eu digo simples não é no sentido menor , mas no sentido de entendimento.. Ate meu menino de 9 anos se le entendi

Espero opiniões..


Marco Salles

Marco Salles

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar