Tenho um formulário de pesquisa que poderá ser chamado por vários formulários, então para isto necessito que ele identifique qual foi o formulário que o chamou.
Criei então a seguinte procedure:
procedure TfrmLocalizaPaciente.FormQueChamou(form: TForm);
begin
formulario := form;
end;
formulario é uma variável global do tipo TForm para poder ser usada em outros métodos.
Quando tento o seguinte:
formulario.ExibeDadosBasicos - recebo a seguinte mensagem:
uFrmLocalizaPaciente.pas(58,15) Error: Identifier idents no member "ExibeDadosBasicos".Porém
form.ExibeDadosBasicos é aceito.
Porquê? formulário não recebeu de form? (formulario := form;). Se funciona para form, porque não funciona com formulario?
Dito isto, alguém tem uma idéia do porque e como resolver?