 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
helinho_10
Aprendiz
Registrado: Quarta-Feira, 29 de Dezembro de 2010
Mensagens: 149
Localização: Goiânia
|
 Enviada: Qua Dez 28, 2011 1:13 pm Assunto: Tratamentos de Buttons -Resolvido |
 |
|
| Moderadores do Active-Delphi escreveu: |
Tópico editado por: johnny-walker
Motivo: Regras do fórum
Título Original: TRATAMENTOS DE BUTTONSO |
OLA PESSOAL ESTOU TENTANDO FAZER NA BIBLIOTECA UM TRATAMENO DE BUTONS PARA NÃO TER QUE REPETIR OS CODIGOS ESTOU FAZENDO ASSIM.
biblioteca.pas:
unit bibliotecaunit;
interface
uses
QButtons,DB;
Function TrataButtons(btnovo, bteditar, btsalvar, btexcluir, btcancelar:TBitBtn; TipoButton:Boolean):Boolean;
implementation
Function TrataButtons(btnovo, bteditar, btsalvar, btexcluir, btcancelar:TBitBtn; TipoButton:Boolean):Boolean;
begin
//Se for Modo Insert ou Edit então tratar assim os buttons
if TipoButton = True then
begin
btnovo :=False; //linha 16 todas as linha abaixodando erro!
bteditar :=False; //linha 17
btsalvar :=True; //linha 18
btexcluir :=False; //linha 19
btcancelar :=True; //linha 20
end else
//Se o modo for browse então tratar assim os buttons
if TipoButton = False then
begin
btnovo :=True;
bteditar :=True;
btsalvar :=False;
btexcluir :=False;
btcancelar :=False;
end;
end;
end.
e no form cadastro onde tenho os devidos buttons estou fazendo assim:
procedure Tfrmcadcidade.FormCreate(Sender: TObject);
begin
TrataButtons(btnovo,bteditar,btsalvar,btexcluir,btcancelar,False);
end;
o erro esta dando ainda na biblioteca o erro é:
[Error] bibliotecaunit.pas(16): Incompatible types: 'TBitBtn' and 'Boolean'
como de corrigir?
agradeço desde já.
Editado pela última vez por helinho_10 em Sex Dez 30, 2011 6:06 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qua Dez 28, 2011 1:24 pm Assunto: |
|
|
Não sei ao certo o objetivo do código mas acho que esta faltando o .Enabled. Ex:
| Código: | btnovo.Enabled := False;
//... |
Espero que ajude.
__________________
Assinatura: Imoveis em Suzano |
|
| Voltar ao Topo |
|
|
helinho_10
Aprendiz
Registrado: Quarta-Feira, 29 de Dezembro de 2010
Mensagens: 149
Localização: Goiânia
|
| Enviada: Sex Dez 30, 2011 12:57 pm Assunto: |
|
|
ok imex deu certo sim, mais é o seguinte o objetivo desse function é deixar os buttons enabled false ou true, quando eu for inserir dados eu não posso apertar o edit e assim em outros, não sei c vc entendeu, eu coloquei o enabled passou normal só que ele ainda da erro.
Incompatible types: 'QButtons.TBitBtn' and 'Buttons.TBitBtn'
quando execulto a function.
só lembrendo que aqui já é no nome dos buttons, btnovo etc... são buttons
| Código: | procedure Tfrmcadcidade.FormCreate(Sender: TObject);
begin
Top := 60;
left :=405;
TrataButtons(btnovo,bteditar,btsalvar,btexcluir,btcancelar,False);
end; |
esse erro no tbnovo
codigo correto:
| Código: | unit bibliotecaunit;
interface
uses
QButtons,DB;
Function TrataButtons(novo, editar, salvar, excluir, cancelar:TBitBtn; TipoButton:Boolean):Boolean;
implementation
Function TrataButtons(novo, editar, salvar, excluir, cancelar:TBitBtn; TipoButton:Boolean):Boolean;
begin
//Se for Modo Insert ou Edit então tratar assim os buttons
if TipoButton = True then
begin
novo.Enabled :=False;
editar.Enabled :=False;
salvar.Enabled :=True;
excluir.Enabled :=False;
cancelar.Enabled :=True;
end else
//Se o modo for browse então tratar assim os buttons
if TipoButton = False then
begin
novo.Enabled :=True;
editar.Enabled :=True;
salvar.Enabled :=False;
excluir.Enabled :=False;
cancelar.Enabled :=False;
end;
end;
end. |
|
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Sex Dez 30, 2011 4:57 pm Assunto: |
|
|
Acho que este erro está ocorrendo porque você deve estar passando botões do tipo Buttons.TBitBtn e a procedure espera botões do tipo QButtons.TBitBtn.
Experimente alterar a unit QButtons da clausula uses de bibliotecaunit para Buttons.
Espero que ajude. |
|
| Voltar ao Topo |
|
|
helinho_10
Aprendiz
Registrado: Quarta-Feira, 29 de Dezembro de 2010
Mensagens: 149
Localização: Goiânia
|
| Enviada: Sex Dez 30, 2011 5:32 pm Assunto: Tratamentos de Butoons -Resolvido |
|
|
imex era isso mesmo velho obrigadu...
funfo agora. |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
