TfrmLocalizaPaciente = class(TfrmLocalizaBase)
procedure btnSelecionarClick(Sender: TObject);
procedure edtLocalizaChange(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
private
public
procedure FormQueChamou(form: TForm);
end;
var
frmLocalizaPaciente: TfrmLocalizaPaciente;
ControlePaciente : TControlePaciente;
formulario : TForm;
implementation
.
.
.
procedure TfrmLocalizaPaciente.FormQueChamou(form: TForm);
begin
formulario := form; <== form.ExibeDadosBasicos OK - formulario.ExibeDadosBasicos ERRO
end;
procedure TfrmLocalizaPaciente.btnSelecionarClick(Sender: TObject);
var { TODO -oTerence : Depois de escolher o paciente, preecher o cadastro }
objPaciente : TPaciente;
begin
ShowMessage(formulario.ClassName); <==== Resposta : TFrmCadPaciente
with grdPacientes.DataSource.DataSet do
begin
objPaciente := TPaciente.Create;
objPaciente.idPaciente := FieldByName('ID_PACIENTE').AsInteger;
.
.
.
formulario.ExibeDadosBasicos(objPaciente); <==== Error: Identifier idents no member "ExibeDadosBasicos"