Vivendo&Aprendendo

Eta povo rápido a hora que eu pensei em responder vocês já tinham postado a resposta....... Esse forum é SHOW.. Alexandre

Olá Fabio Rocha Esses são os códigos das teclas cahamados de Virtual Keys tente com eles não tenho a certeza se da certo mas não custa tentar. No evento onKeyDown do form coloque as teclas desejadas recebendo Key := 0; Se caso der certo adicione o resultado neste post Alexandre VK_LBUTTON 01 Left mouse button VK_RBUTTON 02 Right mouse button VK_CANCEL 03 Used for control-break processing VK_MBUTTON 04 Middle mouse button (three-button mouse) -- 05-07 Undefined VK_BACK 08 BACKSPACE key VK_TAB 09 TAB key -- 0A0B Undefined VK_CLEAR 0C CLEAR key VK_RETURN 0D ENTER key -- 0E0F Undefined VK_SHIFT 10 SHIFT key VK_CONTROL 11 CTRL key VK_MENU 12 ALT key VK_PAUSE 13 PAUSE key VK_CAPITAL 14 CAPS LOCK key -- 15-19 Reserved for Kanji systems -- 1A Undefined VK_ESCAPE 1B ESC key -- 1C1F Reserved for Kanji systems VK_SPACE 20 SPACEBAR VK_PRIOR 21 PAGE UP key VK_NEXT 22 PAGE DOWN key VK_END 23 END key VK_HOME 24 HOME key VK_LEFT 25 LEFT ARROW key VK_UP 26 UP ARROW key VK_RIGHT 27 RIGHT ARROW key VK_DOWN 28 DOWN ARROW key VK_SELECT 29 SELECT key -- 2A OEM specific VK_EXECUTE 2B EXECUTE key VK_SNAPSHOT 2C PRINT SCREEN key for Windows 3.0 and later VK_INSERT 2D INS key VK_DELETE 2E DEL key VK_HELP 2F HELP key VK_0 30 0 key VK_1 31 1 key VK_2 32 2 key VK_3 33 3 key VK_4 34 4 key VK_5 35 5 key VK_6 36 6 key VK_7 37 7 key VK_8 38 8 key VK_9 39 9 key -- 3A40 Undefined VK_A 41 A key VK_B 42 B key VK_C 43 C key VK_D 44 D key VK_E 45 E key VK_F 46 F key VK_G 47 G key VK_H 48 H key VK_I 49 I key VK_J 4A J key VK_K 4B K key VK_L 4C L key VK_M 4D M key VK_N 4E N key VK_O 4F O key VK_P 50 P key VK_Q 51 Q key VK_R 52 R key VK_S 53 S key VK_T 54 T key VK_U 55 U key VK_V 56 V key VK_W 57 W key VK_X 58 X key VK_Y 59 Y key VK_Z 5A Z key -- 5B5F Undefined VK_NUMPAD0 60 Numeric keypad 0 key VK_NUMPAD1 61 Numeric keypad 1 key VK_NUMPAD2 62 Numeric keypad 2 key VK_NUMPAD3 63 Numeric keypad 3 key VK_NUMPAD4 64 Numeric keypad 4 key VK_NUMPAD5 65 Numeric keypad 5 key VK_NUMPAD6 66 Numeric keypad 6 key VK_NUMPAD7 67 Numeric keypad 7 key VK_NUMPAD8 68 Numeric keypad 8 key VK_NUMPAD9 69 Numeric keypad 9 key VK_MULTIPLY 6A Multiply key VK_ADD 6B Add key VK_SEPARATOR 6C Separator key VK_SUBTRACT 6D Subtract key VK_DECIMAL 6E Decimal key VK_DIVIDE 6F Divide key VK_F1 70 F1 key VK_F2 71 F2 key VK_F3 72 F3 key VK_F4 73 F4 key VK_F5 74 F5 key VK_F6 75 F6 key VK_F7 76 F7 key VK_F8 77 F8 key VK_F9 78 F9 key VK_F10 79 F10 key VK_F11 7A F11 key VK_F12 7B F12 key VK_F13 7C F13 key VK_F14 7D F14 key VK_F15 7E F15 key VK_F16 7F F16 key VK_F17 80H F17 key VK_F18 81H F18 key VK_F19 82H F19 key VK_F20 83H F20 key VK_F21 84H F21 key VK_F22 85H F22 key VK_F23 86H F23 key VK_F24 87H F24 key -- 88-8F Unassigned VK_NUMLOCK 90 NUM LOCK key VK_SCROLL 91 SCROLL LOCK key -- 92B9 Unassigned -- BAC0 OEM specific -- C1DA Unassigned -- DBE4 OEM specific -- E5 Unassigned -- E6 OEM specific -- E7E8 Unassigned -- E9F5 OEM specific -- F6FE Unassigned

No Access Crie uma tabela em seu banco de dados com os seuintes campos: Código – AutoNumérico FotoTela – Texto – 200 caracteres Salve a tabela como TelaPrincipal. No Delphi Crie um menu para receber o código de alteração. Adicione um componente OpenPictureDialog1 que está na paleta Dialogs, e altere a propriedade InitialDir para o local que está armazenado as suas imagens (isso não é obrigatório) e altere a propriedade Name para OpenPictureDialog. Adicione um componente Image1 que está na paleta Aditional, no form principal e altere as seguintes propriedades: align para alClient, autoSize para True, Name para ImgPrinc, Stretch para True. Agora no evento OnClick do menu que você criou adicione o seguinte código: procedure TFrmPrincipal.AlterarPlanodeFundo1Click(Sender: TObject); begin OpenPictureDialog.Execute; DmDados.TblTelaPrinc.Last; DmDados.TblTelaPrinc.Edit; DmDados.TblTelaPrinc.FieldByName('FotoTela').AsString := OpenPictureDialog.FileName; DmDados.TblTelaPrinc.Post; ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName); end; Obs: Deixe a propriedade Active da tabela = True, se não você terá que alterar o código um pouco. No evento OnActivate do form principal adicione o seguinte código: procedure TFrmPrincipal.FormActivate(Sender: TObject); begin OpenPictureDialog.FileName := DmDados.TblTelaPrinc.FieldByName('FotoTela').AsString; ImgPrinc.Picture.LoadFromFile(OpenPictureDialog.FileName); end; A primeira vez que for executado o programa ocorrerá um erro, mas é só compilar novamente e dar Ok nos erros que irá funcionar, o erro ocorre porque existem propriedades que estão vazias ainda, é só compilar e adicionar a imagem desejada no form que depois não dará mais o erro. pode fazer tb usando uma variavel no lugar da tabela do banco de dados

Olá galera em breve meu site estara pronto, contendo artigos, exemplos, apostilas, e muito mais... www.tudodelphi.com.br Alexandre - Vivendo&Aprendendo

Ola Lazarodm Experimente também dar um close e depois um open nas tabelas ou active false e depois active true antes de abrir o form. Alexandre

Olá LAZARON!! É só verificar se o arquivo já existe, caso sim não executa o OpenDialog. If not(fileexists('local do arquivo')) then OpenDialog.Execute; Não testei mas acho que da certo. cara valeu pela ajuda e espero que eu tenha lhe ajudado tb. Testa ai e posta o resultado. Vou deixar este post aberto. Qualquer coisa meu mail é aslalexandre@hotmail.com

Amigão você tem que descobrir o valor de cada tecla ex a seta para cima VK_UP, para baixo VK_DOWN, VK_LEFT e assim por diante. Descobrindo os valores das teclas que você quer bloquear é só fazer elas receberem false ou valor 0 quando forem precionadas. Eu tenho uma lista com os valores de todas as teclas mas não estou encontrando vou dar uma procurada e te passo. Me passa o seu e-mail o meu é aslalexandre@hotmail.com

Olá amigo Me explica melhor o funcionamento desse seu programa q acho que posso lhe ajudar. Alexandre

Amigo Eu não sei com fazer mas preciso desse código que você tem será que poderia enviar para o meu e-mail... aslalexandre@hotmail.com Alexandre

Amigo Isso ajuda sim só que ficou um pouco sem lógica..... vou te explicar o que preciso... Estou criando uma aplicação para envio de e-mail e quero clicar em um arquivo com o botão direito do mouse e escolher enviar por e-mail mas não sei como colocar esse link no MenuPoupop.. Como faço isso no XP Alexandre

Eu dnovo Galera Na minha aplicação quando efetuo um novo cadastro ex: cadastro de um cliente e vou emitir um relatório de clientes os cadastros que fiz depois que entrei no sistema não saem no relatório.... ai tenho que fechar a aplicação e abrir novamente para dar certo.. Já tentei dar um refresh na tabela mas não deu certo tb... Uso o ADOQUERY e ACCESS Alexandre

Ola galera!!! Quando clicamos com o botão invertido do mouse sobre um arquivo abre aquele menu, certo? Como faço para adicionar mais uma opção naquele menu. Tenho um aplicativo para envio de e-mail e quero que quando clicar com o btn invertido do mouse sobre um arquivo apareça a opção de enviar este arquivo pelo aplicativo que tenho. Este aplicativo fica no SisTry. Alexandre

Amigo vou tentar desenvolver uma e te envio aguarde no forum Se quiser entrar em contato meu mail é alexandre.lima@bertin.com.br falou

Ou use isso Edit1.text := FormatFloat('0.00',valor); Onde valor é uma variavel que recebe o número ou no lugar dessa variavel pode colocar o numero que você quer que apareça. falou

Meus amigos Sou programador em Delphi e o pouco que conheci de VB, foi o que me fez escolher essa maravilhosa ferramenta que é o DELPHI, mas admiro todos os programadores, pois programar não é uma profissão é uma ARTE. Estou agora estudando Java e Oracle e creio que todos os programadores que querem evoluir devem aprender Java pois assim como o Delphi mas atuando em áreas um pouquinho diferentes é uma ferramenta muito poderosa. falou Galera

cara eu gostei da sua aplicação, fazer a atualização pelo servidor pode me mandar o fonte??? É muito interessante isso e obriga o usuário a fazer a atualização. falou

Acredito que isso se encaixa mais em programação orientada a objetos, tem como programar orientado a objetos pelo delphi mas saira melhor utilizando o java.

Amigo faça o seguinte declare sua varialvel do tipo TDateTime e use o seguinte código: StrToDate(variavel) falou

Olá pessoal Como faço para que um campo (Edit) do tipo Moeda, ou Float, ou integer ao invés de aparecer assim 1,2335644871268 apareça somente assim 1,23? Desde já Obrigado Alexandre

Olá pessoal... Preciso do código das teclas abaixo: Alt, Crtl, Shift, Tab, Delete, Esc. É para que o usuário não saia para o windows quando a aplicação estiver aberta... se houver outra forma me falam.

cara eu já configurei a propriedade formstyle para normal e continua dando o mesmo erro.

No evento onClose da janela filha digite: Form1.close; Action := cafree; form1 = nil;

Olá pessoal Preciso da ajuda de vocês..... eu preciso colocar uma tela de login em um sistema que é MDI. Eu tenho o sistema pronto e a tela tb mas quando adiciono ela ao sistema e compilo gera um erro q diz q é impossivel compilar e o MDI esta active. O q pode ser isso?? Me ajudem...

em um edit você deve digitar a data e ou a hora para iniciar o backup certo? entaum é só você guardar essa data ou hora em um BD ou um arquivo txt mesmo e fazer a comparação If Hora ou data digitada = StrToTime(Time) Then o resultado é o inicio do backup

Amigo... eu não tenho certeza se resolve o seu problema mas tenta desinstalar os dois delphi da sua máquina e instalar somente o d7 e apague os arquivos de seu sistema deixando somente os .pas, .dpr e os .dfm... o restante apague tudo... o erro ocorre porque existem bibliotecas no delphi 5 que não existem mais no delphi7... Obs: como disse não tenho certeza se resolve o seu problema, mas não custa nada tentar.