Vivendo&Aprendendo

Eu quero que apareça quando clicar em qualquer lugar do windows... assim que o usuario clicar aparece o menu do windows... Novo, Copiar, Colar, Recortar... e ai aparecerá um do meu sistema.. falou

Eu quero que apareça quando clicar em qualquer lugar do windows... assim que o usuario clicar aparece o menu do windows... Novo, Copiar, Colar, Recortar... e ai aparecerá um do meu sistema.. falou

Como faço para aparecer um menu do meu sistema no poupup do windows... quando clicar com o botão direito do mouse aparecer um menu de chamada do meu sistema.... V&A

Ae galera como faço para minha aplicação em um determinado momento fazer aparecer uma janelinha igual a do norton e a do MSN que aparece do lado direito em cima do relógio... falou V&A

Olá thaflorzinha no próprio cd de instalação do delphi 5 tem a instalação do Install Shield... agora para fazer download eu não sei te dizer não e se encontrar o site posta ele ai... falou V&A

ta ai a resposta... Vlw KIKONANET With AdoQryHoras Do Begin Close; SQL.Clear; SQL.Add('Select * From Horas'); Open; H := FieldByName('Horas').AsString; If formatDateTime('hh:mm:ss',now) = H Then begin //aqui vai o q deseja fazer se a hora for igual end; falou

Galera como faço para comparar um campo que esta no banco de dados como string com um campo que esta me mostrando a hora do momento e se for igual executar alguma coisa? falou

Se por acaso continuar dando o erro va até a clausula uses e remova a Unit q esta dando o erro. falou

Galera como faço para usar um txt como banco de dados. Tipo assim adionar e excluir determinadas informações dele. Os registros devem estar um debaixo do outro, tipo com segue: 12:15 11:30 10:45 etc... falou

Substituindo TAB pelo ENTER procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then selectedindex := selectedindex +1 else selectedindex := 0; end; Ou então, pode-se tentar o seguinte método: Utilize o evento onkeydown do componente e insira o seguinte comando: if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0); este comando testa a tecla pressionada, se ela for um enter, manda o foco para o componente posterior. Ou ainda no OnKeyPress de cada componente coloque: If Key=#13 Then //#13 é código da tecla enter Perform(Wm_NextDlgCtl,0,0); falou Espero ter ajudado V&A

Olha amigão não sei se isso, mas tente excluir o executável e compilar o seu código novamente para que gere outro executável, faça isso já no win XP, tive alguns problemas desse quando estava aprendendo TURBO PASCAL e só resolveu dessa forma. falou

Valeu KIKONANET funcionou do jeito que eu precisava, novamente obrigado pela ajuda... vocês aki do forum são 1000. falou

Ta KIKONANET, mas como faço para uma variavel receber a hora dessa forma? falou

é, mas tava usando para mostrar a data e a hora como faço para capturar a data e a hora sem os caracters proibidos pelo windows? porque ai creio q dará certo? falou

Pode ser sem esses caracteres... Mas tem q ser a data e a hora... to usando o renameFile, mas num da certo falou

Usei essa e funciona certinho: Declare uma variavel IDADE_Atual : Integer function IdadeAtual(Nasc : TDate): Integer; Var AuxIdade, Meses : String; MesesFloat : Real; IdadeInc, IdadeReal : Integer; begin AuxIdade := Format('%0.2f', [(Date - Nasc) / 365.6]); Meses := FloatToStr(Frac(StrToFloat(AuxIdade))); if AuxIdade = '0' then begin Result := 0; Exit; end; if Meses[1] = '-' then begin Meses := FloatToStr(StrToFloat(Meses) * -1); end; Delete(Meses, 1, 2); if Length(Meses) = 1 then begin Meses := Meses + '0'; end; if (Meses <> '0') And (Meses <> '') then begin MesesFloat := Round(((365.6 * StrToInt(Meses)) / 100) / 30.47) end else begin MesesFloat := 0; end; if MesesFloat <> 12 then begin IdadeReal := Trunc(StrToFloat(AuxIdade)); // + MesesFloat; end else begin IdadeInc := Trunc(StrToFloat(AuxIdade)); Inc(IdadeInc); IdadeReal := IdadeInc; end; idade_atual := IdadeReal; end; Chamei ela desta forma: procedure TFrmMembros.EdtDataNascExit(Sender: TObject); Var Idade : String; begin Idade := (copy(EdtDataNasc.Text,1,2)+'/'+copy(EdtDataNasc.Text,3,2)+'/'+copy(EdtDataNasc.Text,5,4)); IdadeAtual(StrToDate(Idade)); EdtIdade.Text:= IntToStr(idade_atual); end; falou

Galera fiz um sistema de backup para banco de dados, mas agora preciso que o arquivo que é compactado seja gerado com o nome igual o seguinte: Data-Hora : 10/05/2005 - 16:39.zip Mas não estou conseguindo. Alguém ai pode me ajudar? Vlw

Olá São 5 campos!!! Codig Nome Idade etc... falou

Como faço para quando clicar em um botão próximo, anterior mudar a linha de um arquivo txt q contem meus dados? falou

Cria uma função para ler esse arquivo... tipo assim: Var Arq : TextFile; Linha : String; begin AssignFile( arq,'CAMINHO ONDE ESTA O ARQUIVO - COM O NOME DELE E A EXTENSÂO'); Reset(arq); ReadLn(arq,linha); CloseFile (arq); end; E pede para abrir isso em um edit ou memo... falou

Qual o erro esta ocorrendo? você usa BDE ou não? Aconteceu isso comigo uma vez mas era porque ao copiar o arquivos para o disquete ou cd eles ficaram como somente leitura... veirifica isso ai... Vlw

Amigão estou fazendo um exemplo aki, mas me responde uma coisa sempre vai ser essa mesma quantidade de dados: Numero Nome Numero Numero Medic Medic Medic falou

Olá amigão tenta assim ó: DM.Qry_add .Close; DM.Qry_add .Sql.Clear; DM.Qry_add .Sql.Add('insert into DATA(nome,cnpj,comercial,celular,residencial,fax,email,contato,endereco,bairro,cidade, cep,estado,anotacoes,url )'); SQL.Add ('VALUES('+#39+Edit1.Text+#39+','+#39+MaskEdit1.Text+#39+','+#39+MaskEdit3.Text+#39+','+#39+MaskEdit4.Text+#39+','+#39+MaskEdit5.Text+#39+','+#39+Edit6.Text+#39+','+#39+Edit8.Text+#39+','+#39+Edit2.Text+#39+','+#39+Edit3.Text+#39+','+#39+Edit4.Text+#39+','+#39+MaskEdit2.Text+#39+','+#39+ComboBox1.Text+#39+','+#39+RichEdit1.Text+#39+','+#39+Edit7.Text+#39+')'); DM.Qry_add .ExecSql; verifica os nomes dos campos na linha insert e na linha values para ver se estão corretos Vlw

Você quer ler ele e fazer o que? Explique melhor o seu problema para podermos ajudar Vlw

Só configurando os componentes... tipo com adoquery, ado, ect.... Vlw