Ir ao conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Mostrando resultados para as tags ''Delphi''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
  • Eletrônicos
  • Outros
  • Clube do Hardware

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 85 registros

  1. Então guys, quero fazer um programa que quando passar o mouse em cima do botão, o botão vá para uma "coordenada" (x e y) randômica. Comecei fazendo com OnMouseEnter mas não consegui completar. Infelizmente sou um completo ignorante ainda com essa linguagem (e semi-completo com as outras). Gostaria também de marcar a posição tanto do botão quando a do mause (seria a função das duas labels no código abaixo). A seguir meu programa que levei cerca de meia hora para fazer e desisti na metade do caminho: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button1MouseEnter(Sender: TObject); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure Label1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } var centroX: integer; centroY: integer; procedure TForm1.Label1Click(Sender: TObject); begin end; procedure TForm1.Button1Click(Sender: TObject); begin end; procedure TForm1.Button1MouseEnter(Sender: TObject); begin Button1.Left:=Random(Form1.Clientwidth - Button1.width); Button1.Top:=Random(Form1.Clientheight - Button1.height); end; procedure TForm1.FormCreate(Sender: TObject); begin label2:= button1.GetDefaultHeight; button1.GetDefaultWidth; end; Se alguém puder me dar uma luz (mesmo que seja uma pequena dica), agradeço!
  2. Bom dia Equipe delphi. Gostaria de saber se existe alguma biblioteca disponível ou alguma maneira de incrementar essa função dentro do meu software, como está na imagem abaixo: É simplesmente um campo de mensagem com as funcionalidades de editar o texto, acrescentar imagens e etc.. como o campo de mensagem aqui do fórum em BBcode. Preciso com Urgência como é o procedimento de incrementar essa função no meu programas. Quem puder ajudar, agradeço muito.
  3. Boa tarde a todos! De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo? Agradeço pela atenção.
  4. Olá, sou novato no delphi e também não possuo muita experiência com programação. Fiz um código que, ao clicar no botão1, mostra algumas informações sobre ele, tais como: altura, largura, nome... Fiz esse código para um botão, então quando clico nos outros eles não mostram as informações. Então minha dúvida é a seguinte, de que maneira posso fazer para "referenciar" os outros botões para que eles entrem na mesma função do botão1 sem eu precisar escrever todo aquele código novamente. A seguir o código. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Types; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; ControlBar2: TControlBar; GroupBox1: TGroupBox; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; ToggleBox1: TToggleBox; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure PageControl1Change(Sender: TObject); procedure TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); procedure ToggleBox1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin if (Sender is TButtom) then showmessage ( 'Nome original =' + Pchar(ActiveControl.Name) + #13 + 'Nome atribuido =' + Pchar(ActiveControl.caption)+ #13 + 'Posição no eixo x =' + inttostr(ActiveControl.Top)+ #13 + 'Posição no eixo y =' + inttostr(ActiveControl.left)+ #13 + 'Altura =' + inttostr(ActiveControl.Height)+ #13 + 'Largura =' + inttostr(ActiveControl.Width)+ #13 ) ; end; procedure TForm1.Button2Click(Sender: TObject); begin end; procedure TForm1.Button3Click(Sender: TObject); begin end; procedure TForm1.PageControl1Change(Sender: TObject); begin end; procedure TForm1.TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin end; procedure TForm1.ToggleBox1Change(Sender: TObject); begin end; procedure TForm1.ToolButton1Click(Sender: TObject); begin PageControl1.SelectNextPage(false); end; procedure TForm1.ToolButton2Click(Sender: TObject); begin PageControl1.SelectNextPage(true); end; procedure TForm1.ToolButton4Click(Sender: TObject); begin showmessage('Tchau!'); Application.Terminate; end; end. Desde já agradeço.
  5. Então, estava fazendo um código de despertador e resolvi adicionar um som para tocar nesse programa. Usei o MMSystem que me permite tocar sons .wav O problema é que mesmo deixando o som na pasta que marquei, ele não abre (já converti para wav) e outro som de uma sirene deu certo, então não entendi o que fazer. A seguir o código em si. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, MMSystem; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Timer1: TTimer; Timer2: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Timer2Timer(Sender: TObject); begin if edit1.text <> '' then begin if label1.caption > Edit1.Text then begin PlaySound('aazz.wav',1,SND_ASYNC); end; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption:=timetostr(now); end; procedure TForm1.Button1Click(Sender: TObject); begin label4.Caption:='Ativado'; timer2.enabled:=true; end; procedure TForm1.Button2Click(Sender: TObject); begin label4.Caption:='Inativo'; timer2.enabled:=false; end; end. Perdão se fiz algo errado, desde já agradeço.
  6. Estou tentando executar arquivos BAT através do delphi, eles abrem, mas apresentam erro... descobri que os erros se dão por causa do diretório que o bat acha que está... por exemplo se eu fizer um bat com o seguinte código: DIR PAUSE e salvar na pasta c:\ ele deveria mostrar os arquivos da pasta C:\ (se eu clicar no bat direto ele funciona de boa... mas se abrir através do programa delphi, ele mostra os arquivos da pasta onde esta salvo o projeto do delphi... (até consegui resolver colocando mais comandos no BATm para ele navegar até a pasta desejada... mas fica um BAT bem feio.... cheio de comandos...) deve ter alguma forma mais fácil... os comandos que estou usando: ShellExecute (0, Nil, pchar('c:\teste.bat'), '', Nil, SW_NORMAL); ou WinExec(pchar('c:\teste.bat'),sw_ShowNormal); Alguém tem alguma ideia?
  7. Bom dia, sou iniciante no mundo da programação em Delphi, tenho uma dúvida. Eu criei um a art gráfica no Adobe AI e exportei em PNG agora quero programa essa imagem no Delphi, mais quero que ela fique adaptada em todos os formatos de dispositivo. A imagem é uma interface de para um sistema. Se alguém puder dar uma dica eu agradeço muito.
  8. Instalei no w10 x32 um programa desenvolvido em Delphi 6, utilizando banco de dados Access 97. A primeira função do programa é determinar qual operador está utilizando, por não encontrar o arquivo .ini ele bloqueia essa primeira etapa, mostrando o erro 3272. Já instalei anteriormente nesta mesma máquina e funcionou corretamente. Tive necessidade de reinstalar tudo e agora está dando esse erro. Não me lembro onde botei esse arquivo em questão na primeira instalação ou se fiz alguma coisa a mais. Ele funcionou bem por 3 anos. Tentei colar esse arquivo em várias pastas do sistema, reiniciar, desligar e ligar de novo, mas nada acontece. O teste de BDE está funcionando corretamente. Agradeço desde já
  9. eai pessoal to mexaendo em delphi de novo de pois de tanto tempo eu fazendo um codigo simples que le um arquivo e mostra o conteudo em tela, mas até agora eu só consegui fazer o codigo com o caminho do arquivo já especificado e eu quero dar a habilidade do usuario escolher o caminho do arquivo alguem sabe como faz isso? edit: já resolvi, no fim era só usar um componente
  10. Olá, eu tenho que tentar um novo componente Delphi para leitura / gravação em uma série dispositivo. Eu estava pensando que provavelmente existe um utilitário que simula um dispositivo serial phisical. Alguém sabe alguma coisa? Enquanto isso, continuarei a perguntar ao google. obrigado Mario
  11. Eu gostaria de salvar as mudanças nas propriedades dos meus componentes quando eu fechar a aplicação no celular, ou seja, quero que quando uma modificação seja feita pelo usuário o aplicativo salve para quando o usuário reabrir a aplicação suas modificações estejam lá. Gostaria de saber se é possível. Caso sim, como?
  12. boa noite! precisava de uma ajuda com remoçao de constraint no firebird pelo iexpert. tenho uma tabela com fk e pk, e preciso de uma forma de excluir através de um script, para posteriormente criar novamente. no firebird 2.5, o script abaixo eu conseguia excluir a fk e em seguida a pk: delete from rdb$relation_constraints where rdb$constraint_name = ( select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'foreign key' and tc.rdb$relation_name = 'movcontacorrente' and idx.rdb$field_name = 'clifor_id' ); delete from rdb$relation_constraints where rdb$constraint_name = ( select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'primary key' and tc.rdb$relation_name = 'movcontacorrente' ); porém no firebird 3.0 o comando delete do script acima não funciona. achei em vários sites o pessoal falando para utilizar dessa forma: alter table nome_da_tabela drop constraint nome_da_constraint; o problema é que o nome da constraint eu não sei, e para encontrá-la, utilizo o select: select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'foreign key' and tc.rdb$relation_name = 'movcontacorrente' and idx.rdb$field_name = 'clifor_id'; queria saber como faço para utilizar o resultado desse select para colocar no comando abaixo: alter table nome_da_tabela drop constraint nome_da_constraint;
  13. Fala galera, sou iniciante no delphi e tenho que fazer um programa que calcule a moda, media, e mediana. Na hora de fazer a mediana estou com um erro de tipo de variáveis incompatíveis porém as variáveis são do mesmo tipo, e tentei de várias formas, se alguem puder me ajudar, segue o código e a foto do erro. procedure CalculoMedia(cont: integer); procedure CalculoModa(cont: integer); procedure CalculoMediana(cont: integer); var Form1: TForm1; vet: array [1..100] of real; // DECLARAÇÃO VETOR QUE RECEBE OS VALORES moda,media,mediana:real; aux,aux2,aux3:real; i,j:integer; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin application.Terminate; end; procedure TForm1.Button1Click(Sender: TObject); begin i:=i+1; vet[i]:=StrtoFloat(Edit1.Text); // EDIT1 memo1.Lines.Add(FloatToStr(vet[i])); //ADICIONANDO Nº DIGITADO AO MEMO CalculoMedia(i); // CHAMANDO A FUNÇÃO CALCULO MEDIA Edit1.Clear; Edit1.SetFocus; end; procedure TForm1.CalculoMedia(cont: integer); begin aux:=aux+vet[cont]; media:=aux/cont; Label4.Caption:=FloatToStr(media); end; procedure TForm1.CalculoMediana(cont: integer); begin for i:=1 to cont do //PRIMEIRO FOR begin for j:=1 to cont do //SEGUNDO FOR begin if vet[i]<vet[j] then aux:=vet[i]; vet[i]:=vet[j]; vet[j]:=aux; end;//FIM PRIMEIRO FOR end;//FIM SEGUNDO FOR if ((cont mod 2)=0) then begin aux2:=cont/2; mediana := vet[aux2]; Label6.Caption:=FloatToStr(mediana); end else begin mediana := (vet[cont/2-1]+vet[cont/2])/2; Label6.Caption:=FloatToStr(mediana); end; end;
  14. Como eu gero Registros De Cadastro automaticamente, sem o Auto Incremento. que vai gerar os registros automaticamente, a cada novo cadastro por exemplo. Não achei nada na internet que me ajude. Eu estou usando o Firebird . eu tinha esse código mais meu pc deu problema no hd e perdi tudo! Me Parece que cria uma variavel <COD>, E no caso o Edit1 Recebe, não sei muito bem se e isso. Estou usando o Firebird, como converto isso para minha realidade? Eu trabalho só com IBTAble!! Uma vez numa aplicação que eu fiz, tinha esse código, mais meu pc deu pau e perdi os arquivos. mais fazia uma variavel, e o Edit que o que vai receber a sequência de números, por sequência. 1 2 3 4 e assim por diante. A cada cadastro ele adiciona automaticamente no Grid. Por incrível que pareça não encontrei nada em vídeos ou artigos que me ajudasse com minha realidade que desenvolvo,
  15. Bom dia Quando executo o programa abaixo, buga no "end." e aparece a seguinte mensagem de erro: "BEGIN expected but END found". Porquê? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; lbl1: TLabel; edt2: TEdit; lbl2: TLabel; edt3: TEdit; btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; btn5: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var resultadoFinal: Integer; procedure TForm1.btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure btn5Click(Sender: TObject); var numero1, numero2: Integer; begin numero1 := StrToInt(edt1.Text); numero2 := StrToInt(edt2.Text); resultadoFinal := numero1 + numero2; edt3.Text := IntToStr(resultadoFinal); end; end.
  16. Podem me explicar uma forma de fazer exponenciação? Da forma que eu to fazendo não dá certo, tentei de algumas formas e não obtive sucesso. Vou continuar tentando mas se puderem me dar alguma luz ^^ var numero1, numero2, resultadoFinal: Integer; implementation numero1 := StrToInt(edt1.Text); numero2 := StrToInt(edt2.Text); resultadoFinal := Power(numero1,numero2); edt3.Text := IntToStr(resultadoFinal);
  17. Oi, gente. Estou precisando fazer um trabalho para a faculdade e preciso criar um componente visual e um não visual. Já li várias apostilas na internet, já vi livro, mas nada me ajuda. Será que alguém pode me ajudar? Desde já agradeço.
  18. Boa tarde, estou com um trabalho, que solicita o uso da ferramenta Tchart para a realização de calculos dos pontos criticos de uma função. Esse componente já aplica esse calculo de alguma forma? Obrigado
  19. Boa tarde. Preciso que minha query retorne os aniversariantes entre duas datas selecionadas em dois datetimepickers. Fiz assim: //Realiza a consulta Adoquery1.Close; Adoquery1.SQL.Clear; Adoquery1.SQL.Add('Select * from CadPessoas'); ADOQuery1.SQL.add('where ((Month(DtNasc) * 100) + Day(DtNasc)) between :DtNascIni and :DtNascFim'); AdoQuery1.SQL.add('Order by DtNasc'); ADOQuery1.Parameters.ParamByName('DtNascIni').Value := MonthOf(DateTimePicker1.DateTime) * 100 + DayOf(DateTimePicker1.DateTime); ADOQuery1.Parameters.ParamByName('DtNascFim').Value := MonthOf(DateTimePicker2.DateTime)*100 + DayOf(DateTimePicker2.DateTime); AdoQuery1.Open; Só que ele ta confundindo os meses que tem o numero 1. Por exemplo, fiz uma consulta entre 01 de Janeiro e 01 de fevereiro. Ele retornou todos os aniversariantes de outubro, novembro, dezembro e janeiro. Já se a consulta for entre fevereiro e março, por exemplo, que não envolve meses que começam com o numero 1, dá certinho. Alguém poderia ajudar? Uso Delphi 7 e Access.
  20. Olá pessoal, poderiam me dar algumas dicas? Eu gostei da sintaxe do Delphi e da simplicidade para criar aplicações com interface gráfica, mas ainda vale a pena aprender Delphi. Há mercado? Tenho vontade de trabalhar com aplicações Desktop para Windows. Agradeço desde já
  21. Boa tarde, gente! No meu programa eu estou lendo um arquivo txt e preciso separar cada coisa para colocar em Edits diferentes na minha tela principal. Dentro do meu arquivo tenho palavras e números separadas por tabulação. Já estou obtendo exito em relação as strings, entretanto, não sei e não encontrei uma forma de fazer o mesmo com os números. Irei mandar o código abaixo, quem puder me ajudar ficarei extremamente grata! Desde já, meus agradecimentos!! -------------------------- begin Readln(txt,linha); if contador <> 0 then begin Splitted := linha.Split([#9], 2); setlength(dados,contador); dados[contador-1].Cliente:=Splitted[0]; dados[contador-1].Marca:=Splitted[1]; end; inc(contador); end; Edit17.Text:= dados[0].Cliente; Edit2.Text:= dados[1].Marca; end; end. --------------------- Nesse caso, tanto meu cliente e marca são strings, mas minhas outras variáveis que estou com dificuldade são do tipo real, como o número, a data de fabricação e a potência. Obrigada novamente!
  22. Boa Noite. Estou com um probleminha que não estou conseguindo resolver. Tenho dois DBGrids onde no 'Dbgrid1' coloco as contas e no 'Dbgrid2' as parcelas das mesmas e desta forma atualizo as cores conforme baixa nas contas e parcelas. Digamos que para o 'Dbgrid1' uso o DM.qcontasareceber e no 'Dbgrid2' uso o DM.qparcelasR. Preciso que as contas vencendo no dia atual fiquem conforme abaixo. //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém preciso puxar mais um campo para validação do DM.qparcelasR mais ou menos assim //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) and (dm.qparcelas_RContaFinalizada.Value = 'Não') then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém quando coloco desta forma acima não muda a cor do grid como se não reconhecesse o comando. Alguém pode me ajudar? Segue abaixo todo o código de pintura para quem interessar!!! Todos os demais códigos estão todos funcionando!!! procedure Tfrm_ContasAReceber.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // Selecionado if (gdSelected in State) or (gdFocused in State) then Begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clWhite; End // Sem gerar Parcela Else if (dm.qcontasreceberESTATUS.Value = 'QUITADO') and (dm.qContasreceberULTIMAPARCELA.Value = 0) then begin DBGrid1.Canvas.Brush.Color := clBlack; DBGrid1.Canvas.Font.Color := clWhite; end // Pago Else if (dm.qContasreceberESTATUS.Value = 'QUITADO') then begin DBGrid1.Canvas.Brush.Color := clYellow; DBGrid1.Canvas.Font.Color := clBlack; end //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end // Vencida else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value < date) and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clRed; DBGrid1.Canvas.Font.Color := clWhite; end // A Pagar else if (dm.qContasreceberPROXIMOPAGAMENTO.Value > date)and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clGreen; DBGrid1.Canvas.Font.Color := clWhite; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
  23. faça um algoritmo que receba a idade de 5 pessoas e mostre na tela a soma das idades dos maiores ou iguais a 18 anos não estou conseguindo terminar pois na hora que digito os dados no programa os resultados não batem com a resposta, podem me dizer o estou fazendo de errado (Fiz o algoritmo no Pascalzim) Program Pzim ; Var i, idade, total: integer; Begin For i:=1 to 5 do begin Writeln('Digite a idade:'); read(idade); if (idade>=18) then total:=total + 1 end; Writeln('A soma das idades maiores de 18 anos é ', total); if (idade=18) then total:=total - 1; Writeln('A soma das idades iguais a 18 anos é ', total); End.
  24. Boa tarde a todos, Como já havia dito em um post anterior, sou novato em desenvolvimento e mais ainda em Pascal/Delphi, no programa que estou escrevendo, me deparei com um problema que de repente é até simples mas não estou conseguindo resolver. Tenho uma unit, dentro desta unit tenho um PageControl com seis abas e dentro da primeira aba tenho outro PageControl com mais duas abas (por enquanto). Pois bem, dentro das abas deste último PageControl, tenho dois DBGrids, com SQLDataSet, DataSetProvider e ClientDataSet. Inseri e programei alguns botões para Inserir, Editar, Excluir, Cancelar, Salvar e Sair, todos configurados e funcionando, tudo no PageControl(último citado). Ainda no mesmo PageControl, coloquei um ComboBox e um botão de "OK", para selecionar as abas, funcionando quase da forma que preciso. Ainda no mesmo PageControl, coloquei um campo TEdit para digitar e um potão de pesquisa, também funcionando, para as duas abas. Ainda no mesmo PageControl, e agora vem a questão mesmo, inseri um botão de voltar, programei a parte em que ele apaga os dados escritos no campo de pesquisa porém, ele não retorna a tabela ao seu estado original, a tabela fica com o resultado da busca indefinidamente. 1º Como posso fazer para que quando eu trocar de abas em qualquer um dos PageControl's a outra aba desapareça? 2º Como posso fazer para que quando eu clique no botão voltar o grid retorne ao seu estado original? Se houver mais alguma dica ou algo que eu possa melhorar em meu código(o que eu acho muito provável), eu agradeço imensamente. Segue o código do botão voltar até agora: procedure TfrmCompras.sbtnVoltarClick(Sender: TObject); Var i : Integer; begin for i := 0 to ComponentCount -1 do if Components is TEdit then begin TEdit(Components).Text := ''; end; if pcFormCompras.ActivePage = tbsInsumos then begin tbsInsumos.TabVisible := false; TClientDataSet(dsInsumos.DataSet).Close; TClientDataSet(dsInsumos.DataSet).Open; tbsInsumos.TabVisible := true; end; end; Código do botão "OK" para troca de abas do segundo PageControl, o do primeiro é basicamente a mesma coisa: procedure TfrmCompras.sbtnComprasFormClick(Sender: TObject); begin case cbxComprasForm.ItemIndex of 0 : tbsInsumos.TabVisible := true; 1 : tbsProcedimentos.TabVisible := true; end; edtFormCompras.SetFocus; end; Utilizo Win10Pro64, Delphi Tokyo, MySQL(HeidiSQL) Desde já agradeço imensamente.
  25. Bom dia! Primeiramente gostaria de pedir desculpas pela pergunta, sei que esse tópico é destinado somente para a programação em si, mas já tem um tempinho que formatei meu computador e estou tentando instalar o delphi novamente sem sucesso e preciso da ajuda de algum de vocês. Acredito que estou realizando todos os processos corretamente, inclusive a inserção da licença, mas nos últimos passos para a conclusão aparece o erro " Problem loading data", como a imagem abaixo. Ao clicar em close, o programa abre, mas de modo diferente do que devia estar, faltando diversos recursos essenciais para seu funcionamento, já tentei procurar alguma solução na internet, mas não obtive êxito até o momento. Se alguém puder me ajudar ficarei eternamente grata. Obrigada, desde já!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!