Manipulação de Datas no Delphi

Olá pessoal, segue um pequeno exemplo de manipulação de datas no Delphi. Sem mais delongas, crie um formulário com o aspecto a seguir, utilizando MonthCalendar e SpinEdits. Depois é só inserir os trechos de código a seguir:   OnCreate do Form OnChange do SpinEdit procedure TForm1.FormCreate(Sender: TObject); begin MonthCalendar1.Date :=...

Read More

Desabilitar Itens do MainMenu do Delphi

Alterando a propriedade Tag para 1, dos itens que se deseja desabilitar, basta colocar o código a seguir no evento OnCreate do Form. var i: Integer; begin for i := 0 to ComponentCount – 1 do begin if Components[i] is TMenuItem then if TMenuItem(Components[i]).Tag >= 1 then TMenuItem(Components[i]).Enabled := False else TMenuItem(Components[i]).Enabled := True; end; end;

Read More

Tipos de Dados no Delphi

Conhecer os tipos de dados é materia fundamental para o programador de qualquer linguagem, permitindo otimizar o programa criado, além de garantir a correta utilização das informações. Segue abaixo uma lista dos tipos mais utilizados no Delphi.   Tipo Inteiro São dados numéricos, positivos ou negativos Cardial -> De 0 até 4.294.967.295 Integer -> De -2.147.483.648 até...

Read More

Código de Tecla no Delphi

Você pode necessitar em inúmeras situações descobrir o código de uma tecla para executar uma função ou algo do gênero, para tanto pode criar um simples programa para executar a tarefa de exibir o código evitando assim ter listas enormes com os citados códigos. De forma direta, faça o seguinte:  Crie um novo projeto Adicione um Label ao Form Mude a propriedade KeyPreview do Form1 para...

Read More

Função Criptografia em Delphi

A função abaixo existe há muito tempo na Internet, como não sei seu verdadeiro desenvolvedor não colocarei os créditos. Ocorre que realizei algumas modificações para reparar algumas pequenas falhas, deixando portanto o código mais utiizável. O ponto forte do respectivo código é que realiza criptografia e também descriptografia, ou seja, faz e desfaz o processo...

Read More