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
