Kra, eu fiz isso da seguinte forma:
Criei um form padrão, onde coloco as ações de cada
botão. Para cada ação (inclusão, gravação, deleção,
etc), criei uma função onde para onde passo o
DataSource associado aos meus DBEdits e Grid. Criei
uma procedure onde eu altero o estado de todos os
botões, de acordo com o último botão pressionado, com
o estado do dataset e se tem registros no result set
ou não.
Assim, ao criar um form a partir do meu form padrão,
não tenho que fazer nada nesse sentido. Está tudo
pronto no form padrão.
Espero que tenha entendido e que possa te ajudar.
[]´s
Luis Alberto.
--- Alcistemas Informática <[EMAIL PROTECTED]>
escreveu:
> Questão 1:
>
> tenho um procedimento para ocultar os botoes que nao
> serão utilizados
> durante uma operação, por exemplo: Após um botão
> gravar,, o mesmo não
> precisa ficar habilitado pois não estarei mais em
> modo de edicao ou insert,
> num botao Incluir so habilito o gravar o e voltar e
> assim por diante como é
> o caso da barra de botoes do dbnavigator...
> nao quero utilizar como sugerido o
> form1.botao_insert no proprio evento do
> botao pois nessa regra de habilitar uns botoes e
> desabilitar outros vai umas
> 12 linhas pois trabalho com 5 botoes e seis menus,
> isso repetidamente dentro
> de um sistema com 95 forms, se transformam em 1140
> linhas de código, e
> sempre que quero acrescentar um botao a minha guia
> de botoes padrao não vou
> precisar fazer isso tela por tela.
>
>
> Questão 2:
>
> Preciso fazer isso em forma de funcao para que na
> hora de clicar em um
> botao, faco apenas um corrige_botao('Incluir'), e
> tudo esta pronto sem ter
> que redigitar.
>
> Sei que o correto seria criar um componente meu para
> isso, se você puder me
> ajudar agradeço.......
>
> Forte abraço.
>
>
> ----- Original Message -----
> From: "Rubem Nascimento da Rocha"
> <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Saturday, December 03, 2005 2:50 PM
> Subject: RE: [delphi-br] Manipular Components
>
>
> >
> > 1) Pra quê declarar essa variável botao_insert
> dentro da função? Além de
> > estar fazendo referência a um componente que não
> foi devidamente criado,
> > vc
> > deveria simplesmente fazer Form.Botao_Insert para
> codificar a atribuição
> > desejada!
> >
> > 2) Pra quê codificar isso como function se num tá
> retornando absolutamente
> > nada?
> >
> > Sds.
> >
> >>From: Alcistemas Informática
> <[EMAIL PROTECTED]>
> >>Reply-To: delphi-br@yahoogrupos.com.br
> >>To: <delphi-br@yahoogrupos.com.br>
> >>Subject: [delphi-br] Manipular Components
> >>Date: Sat, 3 Dec 2005 09:50:09 -0200
> >>
> >>criei a seguinte funcao na minha unit de funcoes
> >>
> >>Function Corrige_Botao_insert(Form :
> TForm):String;
> >>var
> >>botao_insert :TButton;
> >>begin
> >> with form do
> >> botao_insert.caption := 'Incluindo.....';
> >>end;
> >>
> >>
> >>Corrige_Botao_Insert(Frm_CadCli);
> >>
> >>
> >>só que chamo a funcao pelo meu form, ele muda o
> caption do form e não do
> >>meu botao, o nome do form é frm_cadcli
> >>
> >>o que pode estar acontecento?
> >>
> >>
> >>
> >>[As partes desta mensagem que não continham texto
> foram removidas]
> >>
> >>
> >>
> >
> >
>
_________________________________________________________________
> > MSN Hotmail, o maior webmail do Brasil.
> http://www.hotmail.com
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
>
>
>
>
>
>
>
_______________________________________________________
>
> Yahoo! doce lar. Faça do Yahoo! sua homepage.
> http://br.yahoo.com/homepageset.html
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
> http://br.yahoo.com/info/utos.html
>
>
>
>
>
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< 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]
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
