Ola a todos, se alguem me ajudar agradeço muito.
Não sou dos melhores em criar objetos, mas peguei uma dica que me
resolveria um problema, é o seguinte ppreciso abrir um Form MDI e
passar parametros como por exemplo um filtro para a abertura do form
tipo, se esse parametro não for passado abre o Sql com todos os
registros, caso contrario passo a clausula where, acabei encontrando o
codigo abaixo e ele ate que funciona legal mas tive um pequeno problema.
Ele coloca no form o metodo create, cria o form quando chamado o
construtor, até ai perfeito, mas quando este form está na tela eu tenho
outros forms que podem fazer referência e para minha surpresa usando
esse metodo de criação da o Access violation Adress como se ele não
estivesse na memoria.
Vejam o codigo
Chamada -> Tfrm_Turma.Create(self, 'WHERE ID_TURMA = ' + edit1.text)
...
....
private
{ Private declarations }
Filtro : String;
public
{ Public declarations }
constructor Create(AOwner : TComponent; P_Filtro: String);
// eu acho que preciso dar um create de forma
// que o objeto fique disponivel para aplicação
end;
...
...
...
Constructor Tfrm_Contrato.Create(AOwner : TComponent; P_Filtro: String);
begin
inherited Create(AOwner);
Filtro := P_Filtro;
qry_Principal.Close;
qry_Principal.SelectSQL.Clear;
qry_Principal.SelectSQL.Add(vSqlConBas + vSqlConWhe + Filtro);
qry_Principal.Open;
end;
--
<<<<< 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] ou [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
