[delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico Osmar de Souza Júnior 




assim não funciona ???

procedure ShowForm(Sender: TForm; v_NomeForm : String);
var v_ClasseForm: String;
begin

v_ClasseForm := 'T'+ v_NomeForm;
 
if Sender = NIL then
begin
 if DM_FDM2.Q_Permissoes.Locate('DSC_ID', v_NomeForm, 
[loCaseInsensitive]) then
 begin
  Application.CreateForm(TFormClass(Sender), (Sender));
  Sender.ShowModal;
 end
 else
 begin
  MessageDlg('Usuário Sem Acesso A Esse 
Módulo!',mtInformation,[mbOk],0);
 end;
end;
end;



--- Em [EMAIL PROTECTED], [EMAIL PROTECTED] escreveu
> Oi Pessoal, estou tentando fazer uma Procedure que abra os 
fomulários
> (assim em cada botão eu só coloco a chamada pra Procedure) mas, não 
está
> dando certo...o erro aparece nas duas linhas em negrito
> Alguém pode dar uma ajudinhao código que eu fiz foi esse:
> Uso Delphi 5...
> 
> procedure ShowForm(Sender: TObject; v_NomeForm : String);
> var
>   v_ClasseForm: String;
> begin
>   v_ClasseForm := 'T'+ v_NomeForm;
> 
>   if TForm(Sender) = NIL then
>   begin
> if DM_FDM2.Q_Permissoes.Locate('DSC_ID',
> v_NomeForm,[loCaseInsensitive]) then
> begin
>   Application.CreateForm(TFormClass(Sender), TForm(Sender));
>   TForm(Sender).ShowModal;
> end
> else
> begin
>   MessageDlg('Usuário Sem Acesso A Esse
> Módulo!',mtInformation,[mbOk],0);
> end;
>   end;
> 
> 
> Richard Wagner
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> ICQ: 171647537
> 
> " ...E se a música parar, só restará o som da chuva,
> toda a esperança e glória, todo o sacrifício em vão.
> E se o amor remanescer, mesmo tudo estando perdido,
> nós pagaremos o preço e não contaremos o custo..."
> 
> Neil Peart








-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico Vitor Luiz Redes 

eu coloquei uma há algum tempo na área de arquivos do grupo ...


---
Vitor Luiz Redes 
Desenvolvimento
---
Redsystem Informática  
[EMAIL PROTECTED] 
---
  - Original Message - 
  From: [EMAIL PROTECTED] 
  To: [EMAIL PROTECTED] 
  Sent: Thursday, December 02, 2004 3:50 PM
  Subject: Re: [delphi-br] Re: Ajuda em Procedure



  Valmir, é tipo assim: eu quero criar uma procedure pra disparar sempre pra
  poder abrir meus formulários...nessa procedure eu vou fazer um teste pra
  ver primeiro se o usuário tem acesso...depois abro...assim evita de ter no
  meu form principal várias vezes o teste por exemplo:

if F_Sacados = NIL then
  Application.CreateForm(TF_Sacados, F_Sacados);
F_Sacados.ShowModal;

  então eu quero criar uma procedure que faça isso pra todos os forms

  Richard Wagner
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  ICQ: 171647537

  " ...E se a música parar, só restará o som da chuva,
  toda a esperança e glória, todo o sacrifício em vão.
  E se o amor remanescer, mesmo tudo estando perdido,
  nós pagaremos o preço e não contaremos o custo..."

  Neil Peart



 
  "valmsrj" 
 
  <[EMAIL PROTECTED]   Para:   
[EMAIL PROTECTED]  
  21.com.br>   cc:  
 
           Assunto:     [delphi-br] Re: Ajuda 
em Procedure   
  02/12/2004
 
  15:24 
 
  Favor 
 
  responder a   
 
  delphi-br 
 

 

 






  Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor
  (é só uma sugestão). Se não for isso, me diga...

  // implementação
  procedure TForm1.ShowForm(Form: TForm);
  var
F: TForm;
  begin
F:= TForm.Create(Application);
F.ShowModal;
F.Release;
  end;

  // chamando o método
  ShowForm(Form2);


  Valmir Santana
  [EMAIL PROTECTED]





  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos














  -- 
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico richard 


Valmir, é tipo assim: eu quero criar uma procedure pra disparar sempre pra
poder abrir meus formulários...nessa procedure eu vou fazer um teste pra
ver primeiro se o usuário tem acesso...depois abro...assim evita de ter no
meu form principal várias vezes o teste por exemplo:

  if F_Sacados = NIL then
Application.CreateForm(TF_Sacados, F_Sacados);
  F_Sacados.ShowModal;

então eu quero criar uma procedure que faça isso pra todos os forms

Richard Wagner
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ: 171647537

" ...E se a música parar, só restará o som da chuva,
toda a esperança e glória, todo o sacrifício em vão.
E se o amor remanescer, mesmo tudo estando perdido,
nós pagaremos o preço e não contaremos o custo..."

Neil Peart



   
"valmsrj"   
   
<[EMAIL PROTECTED]   Para:   
[EMAIL PROTECTED]  
21.com.br>   cc:
   
         Assunto:     [delphi-br] Re: Ajuda em 
Procedure   
02/12/2004  
   
15:24   
   
Favor   
   
responder a 
   
delphi-br   
   

   

   






Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor
(é só uma sugestão). Se não for isso, me diga...

// implementação
procedure TForm1.ShowForm(Form: TForm);
var
  F: TForm;
begin
  F:= TForm.Create(Application);
  F.ShowModal;
  F.Release;
end;

// chamando o método
ShowForm(Form2);


Valmir Santana
[EMAIL PROTECTED]





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos














-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico valmsrj 


Por favor desculpe minha msg anterior, eu fiz de cabeça em testei...
mudei algumas coisas...

procedure TForm1.ShowForm(Form: TForm);
begin
  Form.ShowModal;
  Form.Release;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowForm(TForm2.Create(application));
end;

Por favor desculpem minha falha...

Valmir Santana
[EMAIL PROTECTED]


--- Em [EMAIL PROTECTED], "valmsrj" <[EMAIL PROTECTED]> escreveu
> 
> Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor 
> (é só uma sugestão). Se não for isso, me diga...
> 
> // implementação
> procedure TForm1.ShowForm(Form: TForm);
> var
>   F: TForm;
> begin
>   F:= TForm.Create(Application);
>   F.ShowModal;
>   F.Release;
> end;
> 
> // chamando o método
> ShowForm(Form2);
> 
> 
> Valmir Santana
> [EMAIL PROTECTED]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico valmsrj 


--- Em [EMAIL PROTECTED], "valmsrj" <[EMAIL PROTECTED]> escreveu
> 
> Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor 
> (é só uma sugestão). Se não for isso, me diga...
> 
> // implementação
> procedure TForm1.ShowForm(Form: TForm);
> var
>   F: TForm;
> begin
>   F:= TForm.Create(Application);
>   F.ShowModal;
>   F.Release;
> end;
> 
> // chamando o método
> ShowForm(Form2);
> 
> 
> Valmir Santana
> [EMAIL PROTECTED]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Ajuda em Procedure

2004-12-02 Por tôpico valmsrj 


Não entendi muito bem o q vc quer mas acho q assim vai ficar melhor 
(é só uma sugestão). Se não for isso, me diga...

// implementação
procedure TForm1.ShowForm(Form: TForm);
var
  F: TForm;
begin
  F:= TForm.Create(Application);
  F.ShowModal;
  F.Release;
end;

// chamando o método
ShowForm(Form2);


Valmir Santana
[EMAIL PROTECTED]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html