Acho que pro objeto NotaFiscal conseguir ser owner do TForm, ele deverá
herdar de Tobject ou Tcomponent (não lembro agora).

O que você poderia fazer também, é criar um atributo no Form que receba a
nota.

 

Não sei qual a forma “mais” correta de trabalhar...

 

Abraço

--
José Henrique (Zote)
Bludata Software

 

From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Dirceu Vasson
Sent: sexta-feira, 29 de setembro de 2006 08:27
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] POO - Objeto controlando TForm

 

Bom dia a todos

Estou tentando fazer o seguinte

TNotaFiscal = class
...

procedure TNotaFiscal.MostrarNota;
begin
    frmVisualizaNota:= TfrmVisualizaNota.Create(Self); //
    ...
end;

E, dentro do form gostaria de acessar os atributos e métodos da classe que
chamou o form, sendo alguma coisa do tipo

TfrmVisualiza = class(TForm)
...

procedure TfrmVisualizaNota.RecuperaInfo;
begin
  edNumeroNota.Text:= <Instancia que chamou o form>.NumeroNota;//dá para
usar o owner do form?
  edDataNota.Text:= <Instancia que chamou o form>.DataEmissao;
  ...
end;

Grato
Dirceu JR


[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a