Anderson Silva

Tecnologia da informação pra quem gosta de TI

Delphi: Simulando a tecla TAB — 11/04/2013

Delphi: Simulando a tecla TAB

Um dia desses precisei realizar a seguinte tarefa:

Desafio: Antes de gravar os dados no banco de dados você deve ir para o próximo campo para realizar a atualização dos dados.

Pensei: Blz, vamos simular o pressionar da tecla TAB e após alguns minutos de pesquisa me deparei com um código simples e eficiente que gostaria de compartilhar com todos os leitores.

Este é o código:Self.Perform(WM_NEXTDLGCTL,0,0);

Boa implementação a todos.

Referência de um dos lugares que encontrei o código:  http://xucro.wordpress.com/2009/06/03/mudando-para-o-proximo-campo-automaticamente-em-delphi/

Quick Report – Formatação monetária em TQRExpr — 14/03/2013
Pintar DBGrid no Delphi — 11/01/2012

Pintar DBGrid no Delphi

Segue exemplo de como pintar um dbgrid no delphi.

procedure TfrmMovimentoRapido.dbgrdCadastroDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Case ( cdsCadastroSTATUS_MOVIMENTO.AsInteger ) of
    0:
    begin
      (Sender as TDBGrid).Canvas.Font.Color := ClBlack;
      (Sender as TDBGrid).Canvas.Brush.Color := $00C4FFFF;
    end;
    1:
    begin
      (Sender as TDBGrid).Canvas.Font.Color := ClBlack;
      (Sender as TDBGrid).Canvas.Brush.Color := clWhite;
    end;
  end;

  if gdSelected in State then
  Begin
    (Sender as TDBGrid).Canvas.Brush.Color := ClNavy;
    (Sender as TDBGrid).Canvas.Font.Color := ClWhite;
  end;

  (Sender as TDBGrid).Canvas.FillRect(Rect);
  (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Testando a conexão do computador com a rede — 10/08/2011

Testando a conexão do computador com a rede

Esta função boleana testa se o seu sistema está conectado a rede de computadores e é ideal para ser utilizada em sistemas que precisam da conectividade para execução dos seus processos.

Obs.: A inclusão da biblioteca WinInet é obrigatória para o funcionamento da função.
function TfrmMenu.estaConectado: boolean;
var
flags : DWORD;
begin
// verifica se está conectado a internet usando
//    a API do Windows, é preciso declarar a uses WinInet.
if not InternetGetConnectedState(@flags, 0) then
result := false
else
result := true;
end;

Fonte: http://urele.com/DtMz