Formularios

Question

Bom dia turminha.......Bom, � o seguinte....Eu tenho um formul�rio de pesquisa....e tenho mais tres formul�rios que utilizando o de pesquisa..ok.... e eu gostaria de saber como eu sei qual dos tres fo...

Okama · Answer

Tive esse problema uma vez e tentei utilizar parametros para chamar o formul�rio, mas n�o consegui.

Fiz um procedimento que recebe o parametro e abre o formul�rio:

var
  Form2: TForm2;
  FORM_ORIGEM: String;

implementation


{$R *.dfm}

procedure TForm2.Abre(Parametro: String);
begin
   FORM_ORIGEM := Parametro;  
   Form2.Show;
end;

Para abrir o form2 use o codigo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin 
   Form2.Abre(�Form1�);
end;

R�mulo Barros · Answer

Declare uma vari�vel na sessao publica do seu formulario de pesquisa:

type
TfrmPesquisa = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
[color=red:71fb61cd6b] FormName: String;[/color:71fb61cd6b]
end;

No evento OnCreate do formul�rio de pesquisa digite:

procedure TfrmPesquisa.FormCreate(Sender: TObject);
begin
frmPesquisa.FormName := name;
end;

Agora, basta vc colocar no evento OnShow do formul�rio Pesquisa:

procedure TfrmPesquisa.FormShow(Sender: TObject);
begin
ShowMessage(FormName);
end;

[color=red:71fb61cd6b]Pronto, AMORZINHO................ O nome do formul�rio ser� exibido. UM BEIJAO................[/color:71fb61cd6b]

Cristiane · Answer

Bom dia a todos..........Sera que alguem mais pode me dar uma dica sobre os formularios?Desde ja agrade�o a todos....E obrigado ajudas que eu ja recebi.........

Vasques · Answer

Ol�!eu nas minhas aplicac�es tenho tambem situa��es parecidas.um formeLista � chamado por v�rios outros formes, e como n�o uso formes showmodal, esse formeLista pode ser aberto por v�rios formes ao mesmo tempo. n�o sei se � o seu caso, no entanto pensso que a solu��o que eu tenho deve resolver o seu problema.no forme apartir do qual abre o formeLista, crie uma instancia para o formeLista e antes de fazer o show do formeLista passe uma referencia ao forme que o abriu. essa referencia pode ser uma variavel public do formeLista. se a declara��o dessa variavel for do tipo TForm depois � f�cil ter acesso ao form apartir do qual o FormeLista foi aberto  if ObjForm as TNomeClassDoFormeQueOAbriu then   TNomeClassDoFormeQueOAbriu(ObjForm).xxxxx ter� acesso a todos os metodos e atributos do forme que abriu o formeListaespero n�o ter sido muito confuso?se pretender um pequeno exemplo mande-me um email, que com mais tempo eu preparo para si.vasques@aeiou.pt...

Vmotta · Answer

Cristiane, acho que a maneira mais f�cil de fazer isso seria como o pessoal j� disse, informando ao formulario aberto qual formul�rio o chamou, essa � apenas mais uma maneira de fazer isso:

begin
Fpesquisa.tag := 1;
Fpesquisa.show;
end;

em cada formulario que chama sua pesquisa, vc coloca um valor diferente para a propriedade tag, dai no formulario de pesquisa basta tratar a propriedade tag ...

t+
Vitor Hugo <vmotta@eep.br>

F�rum Formularios #164532