Obter tipo de uma propriedade no Delphi

Inclua na seção uses: TypInfo

  Esta função retorna uma string com o nome do tipo de dado
  de uma propriedade. Exemplos de retornos:
  
 Consulte mais informação

Mostrar o nome do EXE no caption do form no Delphi

  Esta função extrai apenas o nome do arquivo passado,
  sem path e extensão

function Titulo(Nome: String): String;
var
  N, D: String;
begin
  N := ExtractFileName(Nome); { Retira o path }
  D := ChangeFileExt(N,''); { Retira a extensão }
  
 Consulte mais informação

Pintar um Bitmap diretamente no Canvas do Form no Delphi

- Declare a variavel Bmp na seção private:

private
  Bmp: TBitmap;

- Coloque um botão no Form e no evento OnClick digite:

 Consulte mais informação

Pintar bitmap no DBGrid no Delphi

Embora pareça complicada, esta tarefa é muito simples. 
O Delphi nos permite controlar totalmente o desenho de cada 
célula do DBGrid através do evento OnDrawColumnCell. O que 
precisamos fazer neste evento é:

 Consulte mais informação

Colocar arquivo como recurso dentro do EXE no Delphi

Inclua na seção uses: Classes

Existem alguns casos em que precisamos levar para a máquina
do usuário, além do EXE, alguns arquivos sem os quais nossa 
aplicação teria problema. Normalmente estes casos incluem:

 Consulte mais informação

Converter Bitmap para JPeg no Delphi

Inclua na seção uses: Graphics, JPeg

O procedimento abaixo converte um arquivo de imagem Bitmap
para JPeg. O arquivo JPeg terá o mesmo nome do arquivo Bitmap, 
mas com a extensão jpg.

 Consulte mais informação

Converter JPeg para Bitmap no Delphi

Inclua na seção uses: Graphics, JPeg

O procedimento abaixo converte um arquivo de imagem JPeg
para Bitmap. O arquivo Bitmap terá o mesmo nome do arquivo JPeg, mas com a extensão bmp.

 Consulte mais informação

Mostrar bitmap progressivamente no Delphi

Inclua na seção uses: Graphics

Esta é uma boa dica para quem deseja fazer aplicativos para exibir fotografias.

 Consulte mais informação

Copiar o texto do Edit para o Clipboard no Delphi

O próprio componente TEdit possui um método para copiar o texto 
para a área de transferência (clipboard). No entanto este 
método copia apenas o texto selecionado, de forma que temos
que chamar o método SelectAll() antes de chamar 
CopyToClipboard().

 Consulte mais informação

Alinhar ao centro e à direita em StringGrid no Delphi

1. Coloque no formulário um componente TStringGrid.
2. No evento OnCreate do formulário escreva:

 Consulte mais informação

Selecionar um item no ListView no Delphi

Para selecionar um item no ListView via programação use
o código abaixo.

{ Manda o foco para o ListView }
ListView1.SetFocus;

 Consulte mais informação

Mudar a cor do Edit ao receber o foco no Delphi

Alguns programas mostram o Edit que está com o foco em uma 
cor diferente dos demais. Como fazer isto em Delphi?

 Consulte mais informação

Consultar por mês de um campo data no Delphi

Use uma Query como abaixo:
- Coloque no form os seguintes componentes:
  * TQuery
  * TDataSource
  * TDBGrid
  * TEdit
  * TButton

 Consulte mais informação

DBGrid zebrado no Delphi

Programe o evento OnDrawColumnCell do DBGrid como abaixo:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if State = [] then
  begin
    if Table1.RecNo mod 2 = 1 then
      DBGrid1.Canvas.Brush.Color := clAqua
    else
      DBGrid1.Canvas.Brush.Color := clWhite;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Consulte mais informação

Calcular idade (em anos completos) no Delphi

A função abaixo calcula o número de anos completos entre duas datas. É ideal para calcular idades de pessoas, por exemplo. Consulte mais informação