Retorno de String

[orc 0]

Gostaria de saber como retornar uma string de um mdichild para um mdiform

[marcio.theis 3]

Em qual momento iria querer este retono ? Quando salva alguma coisa, ou a qualquer momento ?

[orc 0]

o que acontece é assim criei o mdiform com form principal e o mdichild como o de login no Onshow do form principal chamo o de login por um construtor onde passo dados para conectar os componentes de acesso ao banco, gostaria que depois que fizesse o login ele me retornasse uma string do form de login para o form principal com o nome do usuário

[marcio.theis 3]

Neste caso você pode usar o ModalResult de um form, no caso terá de colocar um BitBtn e setar a propriedade dele de ModalResult como mrOk, no caso pode setar a propriedade diretamente no fonte, como...

 

procedure....begin///código fonte aqui///se tudo deu certo..ModalResult:=mrOk;end;

Na outra parte no form que chamou o mesmo, você faz uma validação... tipo...

 

//cria o form//passa os parêmetros para o formif form.ShowModal = mrOk then //valida se o retorno foi OK...	begin	//trata o retorno de tudo OK	end;//destrói o form

[orc 0]

Neste caso você pode usar o ModalResult de um form, no caso terá de colocar um BitBtn e setar a propriedade dele de ModalResult como mrOk, no caso pode setar a propriedade diretamente no fonte, como...

procedure....begin///código fonte aqui///se tudo deu certo..ModalResult:=mrOk;end;

Na outra parte no form que chamou o mesmo, você faz uma validação... tipo...

//cria o form//passa os parêmetros para o formif form.ShowModal = mrOk then //valida se o retorno foi OK...	begin	//trata o retorno de tudo OK	end;//destrói o form

está dando access violation na segunda parte do código que você passou

[marcio.theis 3]

Poderia colocar o trecho do seu fonte ? No caso tentou debugar a aplicação para ver em qual momento gera o erro ?

[orc 0]

Poderia colocar o trecho do seu fonte ? No caso tentou debugar a aplicação para ver em qual momento gera o erro ?

da pau aqui na segunda parte do código

procedure TFAbertur.FormShow(Sender: TObject);begin  TFLogin.Create(Self, Dtm.Acesso, dtm.Transaction );  if Flogin.ShowModal = mrOk then //valida se o retorno foi OK...	begin	//trata o retorno de tudo OK	end;//destrói o formend;

[marcio.theis 3]

Tente desta forma:

 

 

procedure TFAbertur.FormShow(Sender: TObject);beginFlogin:=TFlogin.Create(Application);if Flogin.ShowModal = mrOk then //valida se o retorno foi OK...	begin	//trata o retorno de tudo OK	end;Flogin.Free;end;