Pessoal bom dia a todos
Tenho uma função para criar um form e passar um parâmetro para o form
criado, porem, não consigo acessar nenhuma propriedade dos componentes desse
form.
--------------------------- FORM FAtivarContrato
--------------------------------------------------------
// Declaro a função para criar no public fazendo tipo um overload
public
{ Public declarations }
constructor Create(AOwner : TComponent; sParam: String);
// Implemento a função dessa forma
constructor TFAtivarContrato.Create(AOwner: TComponent; sParam: String);
begin
inherited Create(AOwner);
DM1.dtContrato.SetVariable('sCodigo', sParam);
DM1.dtContrato.Open;
DM1.dtIndice_ax1.Open;
end;
-------------------------FORM
FContrato--------------------------------------------------------------
//Em outro modulo crio o form dessa forma passando o parâmetro.
var
FContrato: TFContrato;
begin
try
FAtivarContrato := TFAtivarContrato.Create(Application,
DM1.dtContratos_ax1.FieldByName('CBN_COD_CONTRATO').AsString);
FAtivarContrato.ShowModal;
finally
FreeAndNil(FAtivarContrato);
end;
end;
//Quando tento acessar qualquer propriedade no FAtivarContrato acontece o
erro de acesso invalido de memória como se estivesse tentando acessar uma
variável local a partir de outra unit
FAtivarContrato.Caption := Ativar Contrato;
Obrigado.
[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
