robinhocne

Consegui resolver uma boa parte e agora só falta uma coisa....... Assim Resolveu o que eu precisava de pegar a imagem de um botão e passar para o outro. TSpeedButton(FindComponent('TF' + Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph := TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph; mas existe uns casos em que o botão que está no atalho não ter no menu, porque ele é acessado por dentro de algum formulário, sendo assim eu teria que verificar se nos botões que são para acessos no de formularios não ter ele deixa sem imagem no botão de atalho, fiz dessa maneira embaixo mas está dando erro de invalid class typecast. tipo tinha que pegar e ver se o botão TSpeedButton(FindComponent('TF' + Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).name não ter um com o nome de TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).name então ele pula, porque como está abaixo está dando erro. for test := 0 to ComponentCount -1 do begin if TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Name = ( Components [test] as TSpeedButton ).Name then begin TSpeedButton(FindComponent('TF' + Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph := TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph; end; end;

não deu certo não.

é que funciona assim; No formulário principal coloquei um PageControl, separando alguns botões por modulos e fiz um formulário que o usuario poder criar atalhos que automaticamente quando abre o sistema apareça no canto direito da tela do sistema os botões de atalhos e caso tenha um atalho de um determinado botão então eu queria que ele mostrasse a mesma imagem daquele botão, sem precisar ficar pegando do ImageList. Entendeu ?

amigo.. isso voce deveria saber SpeedButton2.Glyph := SpeedButton1.Glyph; abraço Opa, foi descuido meu.....é que tinha tentando assim........SpeedButton2.Glyph.LoadFromFile(SpeedButton1.Glyph); Obrigado pela atenção mas agora já batalhei aqui e não consegui.......eu crio alguns SpeedButton em tempo de execução, mas já tenho uns criados no menu......e ai quando eu crio eles eu tenho que pegar a imagem no que já está criado, mas eu pego o nome do botão de dentro de uma consulta......ficou assim: SpbShort := TSpeedButton.Create(Self); with SpbShort do begin Name := 'TF' + Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString; Caption := Dtm.QryAtalhos.FieldByName('AtlNome').AsString; Glyph := TSpeedButton(FindComponent(Dtm.QryAtalhos.FieldByName('AtlFormulario').AsString)).Glyph;// dá erro aki Left := 8 + Espaco; Top := 8 + Altura; Width := 105; Height := 35; Parent := pnAtalhos; Visible := false; OnClick := ChamaAtalhos; end; mas ai dá erro na linha que eu vou pegar a imagem no botão que já está criado.

Perfeito, funcionou corretamente.......valeu Jhonas......mas queria ajuda em outra coisa se possivel..... Como pego uma imagem de um SpeedButton e coloco em outro SpeedButton ?

Sim beleza, até essa parte ok, mas eu queria assim....... tenho varias imagens no TImageList ai quero que o usuario lista essas imagens, que eles possam ver essas imagens para escolher qual vai querer no botão..... será que tem como ?

já tentei desse jeito, mas ai quando abro ele mostra e some a janela

Tive uma ideia de fazer que o usuário possa selecionar a imagem que ele quer que mostre em um determinado botão, mas essas imagens eu queria deixar já no ImageList e assim quando eu teria um cadastro dos botões e as imagens que eles tem, tipo assim; informo qual o botão e pesquiso a imagem que está dentro de um TImageList e selecionar uma determinada image e salvo para esse botão, tpo as imagens ter um ID, mas não queria salvar essas imagens no banco de dados, queria pegar todas de um TImageList

No meu form principal eu tenho um TJvCaptionPanel, deixei o caption do panel no rodape do sistema para trazer algumas informações nele, E coloquei no onclick dele para abrir no canto esquerdo um panel pequeno com alguns botoes(estou fazendo estilo quando clica no iniciar do windows) Ai chamo os meus formularios atraves dessa função abaixo; procedure TFrmPrincipal.ChamaForm(Sender: TObject); procedure CriaForm (Form : TFormClass); begin with Form.Create(Application) do try ShowModal; finally Free; end; end; begin if (Sender = SpbClientes) Then CriaForm (TFClientes); if (Sender = SpbFuncionarios) Then CriaForm (TFFuncionarios); if (Sender = SpbVendas) Then CriaForm (TFVendas); e para chamar no onclick do botão eu coloco a funcão chamaform; Ok até aki, mas então o formulario está aberto em cima da tela principal ai eu quero q mesmo com esse formulario aberto eu poder clicar no caption daquele panel que está no formulario principal para abrir o panel igual do iniciar do windows que estou fazendo Como faço isso ?

Então mas no SQL eu já trago o que eu preciso, porém eu carrego na tabela temporário os formularios que eu pesquisei e quando eu for abrir o formulário eu tenho que verificar se ele está na tabela temporária para poder abrir, caso não tenha ele não tem acesso para abrir, mas consegui fazer assim e resolvi: if not FrmInnovation.TblNiveisForm.Locate('ForFormulario','PESPES001',[loPartialKey]) then//aqui eu pesquiso o formulario que esta na tabela temporia begin ShowMessage('Usuário '+PRI_UsuCodigo+' - '+PRI_UsuNome+' sem Nivel de acesso ao Formulário PESPES001 - Pesquisa de Pessoas !'); exit; end; Mas agora ficou resolvido, obrigado pela ajuda;

Olá pessoal, como faço para deixar um Panel um pouco transparente tipo não quero deixar 100% transparante ? tem como eu fazer isso ?

porém não busca nada, o estou fazendo de errado ? andei pesquisando mais e consegui achar uma coisa aqui que deu certo

Em um RxMemoryData(TblNiveisForm) eu coloco todas as informações de uma consulta, mas ai eu quero achar um registro que esta dentro desse RxMemoryData(TblNiveisForm) ai fiz assim e coloquei no Botao. ForFormulario é a Coluna que eu quero achar o Registro que digito no Edit1 porém não busca nada, o estou fazendo de errado ?

veja o código do exemplo ... a resposta está lá abraço não estou entendendo o código, dá uma ajuda para mim ?

Tá peguei e mexi um puquinho só e consegui algo, fiz assim: var Child: TTreeNode; begin Child := Child.getFirstChild; While (Child <> nil) do begin if tree.Checked[Child] then ShowMessage('MARCADO '+ Child.Text); Child := Child.GetNextChild(Child); end; então ele me traz qual está marcado, porém só me traz o que foi marcado no item pai, no filho, neto bisneto não fala quando esta marcado..... já futuquei nele mais não achei nada.,.....como procedo agora ?

:huh: Agora fiquei perdido, dá um guia para mim ?

Eu tenho um TJvCheckTreeView com varios itens e subitens, neles eu coloquei um valor sequencial no StateIndex, porém não sei se vai ajudar. O que eu preciso saber qual desses Itens ou subItens está marcados o CheckBox, porque eu preciso saber quais dele esta liberados para pegar o nome deles para gravar num banco de dados. Não estou sabendo fazer isso, alguém pode me ajudar ?

Olá pessoal, Estou com um problema e não estou sabendo resolver e querendo saber de uma maneira mais facil e mais curta em códigos, em um formulário de liberação eu tenho um rxmemorydata1(tblformularios) que lista os formulários da pesquisa para poder liberar, em outro rxmemorydata2(tblforliberados) tenho a lista de formulários que já foram liberados e em outro rxmemorydata3(tblempresa) tenho em quais empresas é para liberar o formulário. >Então vou liberar por exemplo o formulário CADPESSOAS e PESPESSOAS que já pesquisei e estão carregados no tblformularios. >Na tblempresa selecionei a empresa 1 e 2 para poder liberar esse dois formulários para essas empresas. >Mas antes de eu liberar e gravar no tblforliberados eu tenho que passar na tblempresa pegar o nome do formulario na tblformulario e verificar se na tblforliberados já tem se não tiver eu libero ou caso contrario eu pulo ele e vou para o proximo. estava fazendo mais ou menos assim: TblEmpresa.first; while not TblEmpresa.Eof do begin // se a empresa estiver marcada entra aki if TblEmpresaSeleciona.AsString = 'S' then begin // verifica se o formulario a liberar está liberado no formularios liberados TblForliberados.First; while not TblForliberados.Eof do begin TblFormularios.First;//pega e passa por cada formulario para ver se esta liberado while not TblFormularios.Eof do begin // se a empresa é diferente do que tem libera if TblEmpresasEmpCodigo.AsString <> TblForliberadosEmpCodigo.AsString then begin //mas se o formulario liberado for diferente do que tem para liberar if TblForliberadosForFormulario.AsString <> TblFormulariosForFormulario.AsString then begin with TblForliberados do begin insert; TblForliberadosEmpCodigo.AsString := TblEmpresasEmpCodigo.AsString; TblForliberadosForFormulario.AsString := TblFormulariosForFormulario.AsString; post; end; end; end; TblFormularios.Next; end; TblForliberados.Next; end; end; TblEmpresas.Next; end; mas tá dando uma zica..... alguém pode me ajudar ? obrigado;

Estranho porque eu utilizo quase assim e funciona corretamente. mas verifica se no DataSource a propriedade AutoEdit está como true e no DbGrid também no options do DbGrid a propriedade dgEditing está como true.

Olá Pessoal, Estou com 3 problemas aqui; Tenho um TJvCheckTreeView chamado (TreModulos) neles eu tenho Itens/SubItens/SubItens (Pai/Filho/Neto) ai vem o problema; 1º - Quando eu clicar e selecionar tipo o Pai quero que automaticamente daquele Pai seleciona os Filhos e Netos e quando selecionado se clicar para desmarcar tem que desmarcar todos que foram selecionados. 2º - Quando eu clicar e selecionar o Filho quero que automaticamente seleciona o Pai e os Netos daquele Filho e quando selecionado se clicar para desmarcar tem que desmarcar todos que foram selecionados. 3º - Quando eu clicar e selecionar o Neto quero que automaticamente seleciona o Filho e Pai daquele Neto e quando selecionado se clicar para desmarcar tem que desmarcar todos que foram selecionados. Pesquisando na Internet eu achei esse código abaixo; procedure TFAdmPro002.TreModulosClick(Sender: TObject); var Node : TJvTreeNode; begin if TJvTreeNode(TreModulos.Selected).Checked then begin Node := TJvTreeNode(TreModulos.Selected.Parent); Node.Checked := True; end; end; Mas quando eu clico tipo no Neto só seleciona o Filho e não Seleciona o Pai, se Clico no Filho seleciona somente o Pai e não seleciona os netos e quando eu clico no Pai ele dá erro no executavel. Obrigado desde já pela atenção,

Ok, deu certinho muito obrigado

Como faço para abrir uma determinada aba de um PageControl sem ter que clicar nele? Já coloquei no evento OnMouseMove da aba TabSheet1.Show; e assim sucessivamente, mas não funcionou;

Hum....Ok, obrigado, não tenho muita experiencia em criar componentes então por enquanto vou deixar assim mesmo.

Ok, dessa maneira eu consigo colocar uma imagem, eu queria colocar assim..... (Imagem) Produtos (Imagem) Manutenções

Tenho um TImageList com algumas imagens e ai quero que quando eu clicar no botao por exemplo Produtos o caption de um determinado TabSheet tipo (TabPro) receber a Imagem que esta no TImageList e ai quando estiver dentro do menu do Produtos(TabPro) e clicar no Botão Manutenções o caption do TabSheet ficaria com a imagem do produtos e depois o nome e ai depois a imagem da manutenção e depois o nome. Exemplo: Clicando no botao Produtos: e depois dentro do produtos clicar no botao Manutenções: Como faço para aparecer assim no Caption do TabSheet do PageControl ?