Re: [delphi-br] Acesso Rapido
amigo fiz da seguinte maneira:
trabalho os atalhos por estacao n por usuari, crio os atalhos num editor q
coloquei no sistema onde o usuario o cria escolhe a imagem a descricao fonte
cor tudo igual o desktop do windows onde ele pode arrastar deixar onde
quiser.. se for trabalhar por usuario tera q salvar no banco mesmo.. eu
salvo em um ini, salvo todos os dados no ini e os criam quando executo o
sistema, vou te mostrar meus procedures para vc ter ideia e desenvolver o
seu:
para chamar o form eu chamo um item do menu:
Procedure TFrmPrincipal.AtalhoClick(Sender: TObject);
Var
Objeto: TObject;
Begin
// aki verifica se ta arrastando se tiver n executa o item do menu
If Capturando Or ControlApertado Then Exit;
// aki verifico se o click foi no meu atalho onde eh um timage
If Sender is TImage Then
Begin
// aki faço a variável objeto receber o objeto q esta no hint do
timage (coloco no hint o name do menuitem correspondente)
Objeto := FindComponent((Sender as TImage).Hint);
// aki soh por precaução verifico se eh um menuitem se sim executo
um clique
If Objeto is TMenuItem Then
(Objeto as TMenuItem).Click;
End;
End;
aki eh como leio e crio o timage, a criacao do tlabel nao estou postando pq
eh parecido.. a funcao LerIni serve pra ler a string de uma variavel dentro
do ini coisa normal q vc acha na net se tiver duvida:
Imagem := TImage.Create(Self);
With Imagem do
Begin
Parent := xp;
Name := 'Imagem'+Nome;
Hint := LerIni(Nome,'OnClick','Vazio');
Try
Picture.LoadFromFile(LerIni(Nome,'Picture',''));
Except
Informa(Pchar('Erro ao carregar arquivo de Imagem do
Atalho '+Nome));
Free;
Exit;
End;
Height := StrToInt(LerIni(Nome,'Height','32'));
Width := StrToInt(LerIni(Nome,'Width','32'));
If LerIni(Nome,'Center','True') = 'True' Then
Center := True
Else
Center := False;
If LerIni(Nome,'Stretch','True') = 'True' Then
Stretch := True
Else
Stretch := False;
If LerIni(Nome,'Transparent','True') = 'True' Then
Transparent := True
Else
Transparent := False;
Top := StrToInt(LerIni(Nome,'Top','100'));
Left := StrToInt(LerIni(Nome,'Left','100'));
If LerIni(Nome,'Label','') '' Then
Tag := 1
Else
Tag := 2;
Visible := True;
BringToFront;
OnMouseDown := AtalhoMouseDown;
OnMouseMove := AtalhoMouseMove;
OnMouseUp := AtalhoMouseUp;
OnClick := AtalhoClick;
End;
2009/10/13 José Henrique (Zote) z...@bludata.com.br
Nao repara nos erros de sintaxe. Nao tenho delphi aqui e faz tempo que nao
trabalho com ele.
procedure BlaBlaBla;
var
botao: TButton;
begin
botao := TButton.Create(self);
botao.Parent := self; // Nao tenho certeza se precisa ou nao desta linha.
Acabei esquecendo isso... :p
botao.Caption := 'Meu Atalho';
botao.OnClick := MeuItemMenu.OnClick;
botao.Top := 200;
botao.Left := 200;
end;
Acho que é isso. Senao, da uma procurada no bing/google que com certeza vai
ter algo.
--
José Henrique (Zote)
Analista de TI
Bludata Software
2009/10/13 Felipe Lopes
felipearaujolo...@yahoo.com.brfelipearaujolopes%40yahoo.com.br
Jose
Montei também estrutura no banco do dados. Tipo, nome do formulário,
caminho no menu nome da action, estou utilizando no formulário
principal(Portal)
como faço para criar o botão dinamicamente?
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br] Em nome de
José Henrique (Zote)
Enviada em: terça-feira, 13 de outubro de 2009 22:06
Para: delphi-br@yahoogrupos.com.br
delphi-br%40yahoogrupos.com.brdelphi-br%
40yahoogrupos.com.br
Assunto: Re: [delphi-br] Acesso Rapido
Nos nossos sistemas, temos cada item do Menu cadastrado auto
magicamente
no banco de dados. Nesta tabela, temos a Descricao do item (Nota Fiscal
-
Emissao - Segunda via) e o nome do componente (NotaFiscal1).
Entao pra cada item que o usuario nao tem permissao, a gente desabilita
ou
esconde o menu. Agora, pra criar o Atalho, voce pode criar os botoes
dinamicamente, e apontar o evento OnClick dele para o evento do Item do
[delphi-br] Acesso Rapido
Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acesso Rapido
Ta ai uma coisa q também gostaria de saber ... Vc tem um único .exe FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br http://fiosecabos.ind.br/ - cic...@fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Felipe Lopes Enviada em: terça-feira, 13 de outubro de 2009 19:01 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Acesso Rapido Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acesso Rapido
Sim Um único exe. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fios e Cabos Enviada em: terça-feira, 13 de outubro de 2009 20:15 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Acesso Rapido Ta ai uma coisa q também gostaria de saber ... Vc tem um único .exe FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br http://fiosecabos.ind.br/ - cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Felipe Lopes Enviada em: terça-feira, 13 de outubro de 2009 19:01 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Acesso Rapido Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acesso Rapido
Pelo que entendi, voce quer gerar botoes de atalho para determinadas opcoes do seu sistema para que o usuario nao precise mavegar entre os menus e submenus. E isso? Voce esta falando de app desktop ou web? Pq falando em portal, da aspecto de web. O que a quantidade de executaveis tem a ver com gerar atalhos para o menu? -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acesso Rapido
É app desktop Agora a quantidade de executáveis não interfere em nada. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 21:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Pelo que entendi, voce quer gerar botoes de atalho para determinadas opcoes do seu sistema para que o usuario nao precise mavegar entre os menus e submenus. E isso? Voce esta falando de app desktop ou web? Pq falando em portal, da aspecto de web. O que a quantidade de executaveis tem a ver com gerar atalhos para o menu? -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br mailto:felipearaujolopes%40yahoo.com.br Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acesso Rapido
Nos nossos sistemas, temos cada item do Menu cadastrado auto magicamente no banco de dados. Nesta tabela, temos a Descricao do item (Nota Fiscal - Emissao - Segunda via) e o nome do componente (NotaFiscal1). Entao pra cada item que o usuario nao tem permissao, a gente desabilita ou esconde o menu. Agora, pra criar o Atalho, voce pode criar os botoes dinamicamente, e apontar o evento OnClick dele para o evento do Item do menu. Acho que tem solucoes mais bonitas e limpas, principalmente usando os componentes action* mas essa saida bolamos ainda no delphi 1 ou 2, esta funcionando bem e ainda nao vimos necessidade de mudar. -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br É app desktop Agora a quantidade de executáveis não interfere em nada. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 21:37 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Pelo que entendi, voce quer gerar botoes de atalho para determinadas opcoes do seu sistema para que o usuario nao precise mavegar entre os menus e submenus. E isso? Voce esta falando de app desktop ou web? Pq falando em portal, da aspecto de web. O que a quantidade de executaveis tem a ver com gerar atalhos para o menu? -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.brfelipearaujolopes%40yahoo.com.brmailto: felipearaujolopes%40yahoo.com.br felipearaujolopes%2540yahoo.com.br Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acesso Rapido
Jose Montei também estrutura no banco do dados. Tipo, nome do formulário, caminho no menu nome da action, estou utilizando no formulário principal(Portal) como faço para criar o botão dinamicamente? De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 22:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Nos nossos sistemas, temos cada item do Menu cadastrado auto magicamente no banco de dados. Nesta tabela, temos a Descricao do item (Nota Fiscal - Emissao - Segunda via) e o nome do componente (NotaFiscal1). Entao pra cada item que o usuario nao tem permissao, a gente desabilita ou esconde o menu. Agora, pra criar o Atalho, voce pode criar os botoes dinamicamente, e apontar o evento OnClick dele para o evento do Item do menu. Acho que tem solucoes mais bonitas e limpas, principalmente usando os componentes action* mas essa saida bolamos ainda no delphi 1 ou 2, esta funcionando bem e ainda nao vimos necessidade de mudar. -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br mailto:felipearaujolopes%40yahoo.com.br É app desktop Agora a quantidade de executáveis não interfere em nada. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 21:37 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Pelo que entendi, voce quer gerar botoes de atalho para determinadas opcoes do seu sistema para que o usuario nao precise mavegar entre os menus e submenus. E isso? Voce esta falando de app desktop ou web? Pq falando em portal, da aspecto de web. O que a quantidade de executaveis tem a ver com gerar atalhos para o menu? -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br mailto:felipearaujolopes%40yahoo.com.br felipearaujolopes%40yahoo.com.brmailto: felipearaujolopes%40yahoo.com.br felipearaujolopes%2540yahoo.com.br Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Acesso Rapido
Nao repara nos erros de sintaxe. Nao tenho delphi aqui e faz tempo que nao trabalho com ele. procedure BlaBlaBla; var botao: TButton; begin botao := TButton.Create(self); botao.Parent := self; // Nao tenho certeza se precisa ou nao desta linha. Acabei esquecendo isso... :p botao.Caption := 'Meu Atalho'; botao.OnClick := MeuItemMenu.OnClick; botao.Top := 200; botao.Left := 200; end; Acho que é isso. Senao, da uma procurada no bing/google que com certeza vai ter algo. -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.br Jose Montei também estrutura no banco do dados. Tipo, nome do formulário, caminho no menu nome da action, estou utilizando no formulário principal(Portal) como faço para criar o botão dinamicamente? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 22:06 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Nos nossos sistemas, temos cada item do Menu cadastrado auto magicamente no banco de dados. Nesta tabela, temos a Descricao do item (Nota Fiscal - Emissao - Segunda via) e o nome do componente (NotaFiscal1). Entao pra cada item que o usuario nao tem permissao, a gente desabilita ou esconde o menu. Agora, pra criar o Atalho, voce pode criar os botoes dinamicamente, e apontar o evento OnClick dele para o evento do Item do menu. Acho que tem solucoes mais bonitas e limpas, principalmente usando os componentes action* mas essa saida bolamos ainda no delphi 1 ou 2, esta funcionando bem e ainda nao vimos necessidade de mudar. -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.brfelipearaujolopes%40yahoo.com.brmailto: felipearaujolopes%40yahoo.com.br felipearaujolopes%2540yahoo.com.br É app desktop Agora a quantidade de executáveis não interfere em nada. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de José Henrique (Zote) Enviada em: terça-feira, 13 de outubro de 2009 21:37 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Acesso Rapido Pelo que entendi, voce quer gerar botoes de atalho para determinadas opcoes do seu sistema para que o usuario nao precise mavegar entre os menus e submenus. E isso? Voce esta falando de app desktop ou web? Pq falando em portal, da aspecto de web. O que a quantidade de executaveis tem a ver com gerar atalhos para o menu? -- José Henrique (Zote) Analista de TI Bludata Software 2009/10/13 Felipe Lopes felipearaujolo...@yahoo.com.brfelipearaujolopes%40yahoo.com.brmailto: felipearaujolopes%40yahoo.com.br felipearaujolopes%2540yahoo.com.br felipearaujolopes%40yahoo.com.brmailto: felipearaujolopes%40yahoo.com.br felipearaujolopes%2540yahoo.com.br Galera, boa noite Estou desenvolvendo um projeto e gostaria de colocar um acesso rápido. Tenho todos os módulos do sistema cadastrados em uma tabela. Gostaria de colocar um menu no portal onde nas permissões do usuário no qual dou acesso ao modulo Tambem digo que aquele modulo Para tal ususario, tem acesso rápido. Com isso o sistema gera automaticamente um botão no portal onde aquele botão chama o formulário correspondente Alguem sabe como? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
