Comments on: Dica para gerenciamento de formulários

By: Silvio Clécio

Silvio Clécio — Wed, 07 Apr 2010 07:09:04 +0000

João, esquece o ultimo comentário que fiz, executa normal aqui no Lazarus

Quem quiser calar os hints chatos do FPC:

(…)
var
VIndex: Integer;
begin
VIndex := 0;
if not Assigned(_Forms) then
begin
(…)

João, detona esse cara do “vigara medicine”, que spam fdp!

By: Silvio Clécio

Silvio Clécio — Wed, 17 Feb 2010 02:30:33 +0000

João meu caro, estou sempre visitando seu blog e relendo esses artigos, pois são ótimos, os melhores.
Uma coisa, só uma pequena correção no segundo bloco de código, colocar o “= False” no “Execute(var AForm; AModal: Boolean)”, para ficar igual a declaração.

By: Thiago

Thiago — Tue, 26 May 2009 13:25:30 +0000

Bom dia, o meu problema com gerenciamento de Formulários acontece da seguinte forma:
Eu tenho um formulario de Busca, e um Formulario de Cadastro, No meu formulario de busca estão os componentes de Persistencia (TSqlQuery, TDataSetProvider, TClientDataSet) que serão utilizados, tanto para buscar os registros, quanto para fazer a inserção e edição dos mesmos. O Formulario de Cadastro não possue componentes de Persistencia, ou seja, Todos os “DbEdits” que estão na tela de cadastro, estão referenciados aos componentes de persistencia do Formulario de Busca.

O Problema Ocorre no seguinte caso : Eu tenho um Formulario de Busca Instanciado. Eu quero criar outra Instancia deste mesmo Formulario Busca, o qual eu realizarei alterações no componente de Persistencia, e ao criar um Formulario de Cadastro, eu necessito que este esteja referenciada com essa instancia alterada, e não a primeira instancia que eu já o tinha criada… Em outras Palavras …. Os tais Componentes “DbEdits” presentes na tela de Cadastro estão ligados aos componentes que eu não alterei, isto quer dizer q o Fomulario de Cadastro que eu tenho esta vinculado a primeira instancia do Formulario de Busca, e não a Instancia que eu alterei os componentes…
A duvida é, como referenciar o Formulario de Cadastro a segunda instancia do Formulario de Busca e não a primeira?

By: Joao Morais

Joao Morais — Mon, 16 Feb 2009 21:21:11 +0000

Known issue. Thanks.

By: Jaserises

Jaserises — Sun, 15 Feb 2009 22:19:30 +0000

Your web page does not correctly work in safari browser

By: Erich Nascimento

Erich Nascimento — Sun, 23 Nov 2008 00:23:55 +0000

Cara, essa dica me serviu muito bem.
Estou reestruturando minhas aplicações que são SDI para MDI.
Ontem tive uma ideia de criar uma classe base da qual seriam herdados todos os meus formularios child. A merda ocorria exatamente neste ponto. Na hora em que fechava o formulario filho, não conseguia setar a variavel de instancia para nil a partir dessa classe pai.
Tentei de varias formas, fiquei umas 3 horas googando e naaada. Relaxei, tomei uma Pepsi, e encontrei seu blog. Show cara, serviu perfeitamente esta técnica para mim.
Obrigado.

By: Joao Morais

Joao Morais — Sun, 12 Oct 2008 13:31:00 +0000

Que não seria mais eficiente do que sobrecarregar o destructor. E o maior problema ainda permaneceria: como localizar a variável que aponta para a instância do form a fim de setá-la para nil?

By: Rodrigo Palhano

Rodrigo Palhano — Wed, 08 Oct 2008 11:52:48 +0000

Outra abordagem seria utilizar o mecanismo de notificação já presente na classe TComponent

procedure Notification(AComponent: TComponent; Operation: TOperation); override;

para remover a referencia do field que aponte para o sub-form.

By: Joao Morais

Joao Morais — Wed, 08 Oct 2008 11:07:34 +0000

Eu concordo com você, e eu também apago estas variáveis pois o mvp do pressobjects cuida das instâncias por mim.

E além do acoplamento, que vai ocorrer de qualquer forma ao acessar a classe do form, o modelo proposto e a forma que o delphi encoraja o uso dos forms imaginam uma única instância de cada form de cada vez.

No entanto tenho visto pessoas procurarem meios de automatizar a atualização desta variável global, e é este o objetivo do artigo.

By: Rodrigo Palhano

Rodrigo Palhano — Wed, 08 Oct 2008 02:48:04 +0000

Eu nunca uso a variavel global de forms que o delphi gera. A primeira coisa que eu faço é apagá-la quando crio uma nova unit, então esse problema simplesmente deixa de existir.

se vc usar showmodal fica mais simples

With Tform1.Create (nil) do
begin
ShowModal;
Release;
end;

ou se naum usar showmodal vc pode criar uma referencia em um field no form que chama o form filho

neste caso para limpar a referencia invalida do field vc poderia escutar o onclose do form filho.

o uso destas variaveis globais que o delph encoraja promovem acoplamento.