Como descobrir em qual form outro form foi chamado?

[brunoguitarman 0]

Galera, num programa aqui, dois forms usam a mesma função de uma biblioteca criada pelos desenvolvedores do programa. Teria como eu saber por qual desses forms a função foi chamada, sem que eu altere os parâmetros da função? Por exemplo: até certo ponto da função ela faz a mesma coisa pros dois forms, mas depois de certo ponto faz algo tipo Se chamado pelo form1 faz X, Se chamado pelo form2 faz Y?

[Hugo Slepicka 0]

Coloca aqui o código da função!!!

 

Dependendo da pra pegar o Sender ou algo do tipo...

 

 

Ble?

 

Abrass! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[brunoguitarman 0]

bom, a chamada ocorre assim:if (Util.MontaDenominacaoMob(cmbxDenominacao)) = 0 then;e essa função é assim:function TUtil.MontaDenominacaoMob(var cmbxDenominacao : TComboBox) : integer;aí dentro dela tem um monte de sql e mais algumas coisinhas ali.

[Hugo Slepicka 0]

Se o Parent da ComboBox for um Form você pode fazer por exemplo:

 

Showmessage(TForm(ComboBox1.GetParentComponent).Name);

[marcio.theis 3]

Pode fazer como o Hugo falou, caso não consiga pegar o Form no primeiro Get, precisa ir pegando a classe encontrada e dar GetParentComponent até achar, pois pode estar dentro de um Painel ou Scroll

[Hugo Slepicka 0]

Segue o código melhorado...

 

 

da uma olhada aew fera... e veja se lhe serve...

 

procedure TForm1.BitBtn1Click(Sender: TObject);var componente : TComponent;begin//Cria um componente  componente := TComponent.Create(Self);//Recebe o componente Pai da combobox1  componente := ComboBox1.GetParentComponent;//enquanto o componente pai não pertencer a classe TForm (não for um form)  while componente.ClassParent.ClassName <> 'TForm' do  Begin//Recebe o componente Pai do componente	componente := componente.GetParentComponent;  end;//Mostra o nome do form em que está a combobox...  Showmessage(componente.Name);end;

[brunoguitarman 0]

Quando eu vou compilar aponta a linha "var componente : TComponent;" e dá a mensagem Undeclared identifier: 'TComponent'.

Segue o código melhorado...da uma olhada aew fera... e veja se lhe serve...

procedure TForm1.BitBtn1Click(Sender: TObject);var componente : TComponent;begin//Cria um componente  componente := TComponent.Create(Self);//Recebe o componente Pai da combobox1  componente := ComboBox1.GetParentComponent;//enquanto o componente pai não pertencer a classe TForm (não for um form)  while componente.ClassParent.ClassName <> 'TForm' do  Begin//Recebe o componente Pai do componente	componente := componente.GetParentComponent;  end;//Mostra o nome do form em que está a combobox...  Showmessage(componente.Name);end;

[marcio.theis 3]

Verifica se no uses esta declarado Classes.

você esta colocando dentro de uma Unit, ou dentro de um formulários com fontes ?

[brunoguitarman 0]

Verifica se no uses esta declarado Classes.

você esta colocando dentro de uma Unit, ou dentro de um formulários com fontes ?

Unit.

 

O negócio é o seguinte:

 

Eu entro num Form através de um menu. Nesse form tem a combobox que carrega itens por um código SQL que está dentro da unit. Esse carregamento ocorre quando, dentro do código do Form, aparece o código Util.MontaDenominacaoMob(cmbxDenominacao) que chama esse método da Unit e foi nesse método que coloquei o código do Hugo, pois dois Forms fazem a mesma coisa, mas eu quero mudar uma coisa e quero que isso ocorra só em um dos Forms.

[marcio.theis 3]

beleza, então dentro desta unit tente declara Classes no uses

[Hugo Slepicka 0]

concordo com o Márcio....é que eu me esqueci de alertar sobre a Unit...Na correria aqui acabei mandando o código, só deu tempo de comentar...

[brunoguitarman 0]

beleza, então dentro desta unit tente declara Classes no uses

Declarei, mas agora aparece: Incompatible Types: 'TComponent' and 'TUtil' na linha componente := TComponent.Create(Self);

[Hugo Slepicka 0]

Como está dentro de uma Unit não rola o SELF

 

troque por:

 

componente := TComponent.Create(nil);

[brunoguitarman 0]

Deu certo. Valeu!Aliás, pra que serve o self? Eu leio no help, entendo, mas daqui dois minutos já esqueci.

[Hugo Slepicka 0]

Opa, beleza que deu certo...

 

Com relação ao comando SELF dê uma olhada nesse link:

http://www.delphibasics.co.uk/RTL.asp?Name=Self

 

 

Abrass, flw aew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif