Fórum criar uma unit com todas as suas rotinas #328994
09/09/2006
0
Como devo chamar essa unit e como executar os procedimentos de outro formulario?
obrigado!
Souzaaguiar
Curtir tópico
+ 0Posts
09/09/2006
Marco Salles
Quando voce tem Modulos , o certo é agrupar esses modulos em Units
seguindo algum criterio
Por exempo ..Modulos que tratam String ; Modulos que Tratam Horas ,
Modulos de funçoes matemáticas , Modulos de Impressão , Modulo de Arquivos , Modulo de validaçoes etc...
o nome desta Unit deve ser o mais sugestivo o possivel , o mesmo vale para as classes e Modulos (Funçoes/Procedres) que voce criar...
[b:5eceba5202]Voce pode colocar tudo em Uma Pasta e colocar esta pasta no Library Path do delphi[/b:5eceba5202]
Por exemplo, você pode ter um diretório chamado c:\comum com tudo que é comum aos projetos e incluir esse diretório no Library Path.
no meu caso eu coloquei em :
Para chamar esta Unit no delphi basta colocar o Nome da Unit <que ja deve estatr instalada no Pacth do delphi> [b:5eceba5202]na uses da secção interface ou na uses da secção implementation[/b:5eceba5202]
Agora se sua intenção é somente ter uma unit com algumas funçoes que não serão usadas no futuro , basta criar um unit no projeto , salva-la [b:5eceba5202]e novamente , acessar esta unit na Secção Uses <interface ou Implementation> do formulario em questão[/b:5eceba5202]
Espero ter sido claro e ter contribuido com algo
Gostei + 0
12/09/2006
Marco Salles
Oi marcos, tudo certo? nao sei onde deixar uma mensagem informando q a dica deu certo mas sua resposta ajudou mt..
No Botao Responder
Gostei + 0
12/09/2006
Marco Salles
objetivo : sempre que clicar nun botão desabilitar o proprio botao
idéia: Criar um metodo que deve poder ser aplicado em todos os formulários
saida:
Escrever uma Unit
unit Unit2; interface uses StdCtrls,dialogs; procedure Desabilitar(sender:Tobject); //todo que esta qui é invisivel implementation //tudo aqui é visivel procedure Desabilitar(sender:Tobject); begin if sender is Tbutton Then begin showmessage(´voce clicou em um Bottao´); Tbutton(sender).enabled:=false; end else showmessage(´voce não clicou em um bottao´) end; end.
Para testar crie uma aplicação e adicione a Unit2
no formulario coloque um botao e um edit e no evento onclick dos dois chame o método
procedure TForm1.Button2Click(Sender: TObject); begin desabilitar(sender); end; procedure TForm1.Edit1Click(Sender: TObject); begin desabilitar(sender); end;
[b:77b6cec870]Mas para chamar o metodo a unit 2 tem que estar declarada imediatamente apos a secção Implementation do formulário[/b:77b6cec870]
Gostei + 0
13/09/2006
Marco Salles
[b:e9da206a37]a parte visivel é refernte a interface e a parte invisivel e referente a Implementatio... No modelo anterior escrevi de maneira inversa[/b:e9da206a37]
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)