Simular a vírgula através do ponto do teclado numérico no Delphi
{ Na seção "private" do Form principal acrescente: }
procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
Consulte mais informação
Inverter os botões do mouse no Delphi
Inclua na seção uses: Windows
{ Para inverter: }
SwapMouseButton(true);
{ Para voltar ao normal: }
SwapMouseButton(false);
Determinar se o cursor do mouse está em determinado controle no Delphi
Inclua na seção uses: Windows
{ Os exemplos abaixo verificam se o cursor do mouse está em
Button1: }
Consulte mais informação
Simular um CharCase no DBGrid no Delphi
Para converter a digitação para maiúsculo, coloque isto no
evento OnKeyPress do DBGrid: Key := AnsiUpperCase(Key)[1]; Consulte mais informação
Verificar o estado de NumLock e CapsLock no Delphi
Inclua na seção uses:Windows
{ Esta função retorna true se a tecla informada estiver
ligada. False em caso contrário }
Consulte mais informação
Verificar se uma determinada tecla está pressionada no Delphi
Inclua na seção uses: Windows
{ Esta função retorna true se a tecla informada
estiver pressionada. False em caso contrário. }
Ligar/desligar a tecla Caps Lock no Delphi
Inclua na seção uses:Windows
{ Esta função liga/desliga Caps Lock, conforme o parãmetro
State }
Consulte mais informação
Simular o pressionamento de uma tecla no Delphi
Inclua na seção uses:Windows
A API keybd_event do Windows serve para fazer isto. No exemplo abaixo estamos simulando o pressionamento da tecla F2: Consulte mais informação
Simular o pressionamento de uma combinação de teclas (ex: Ctrl+F2) no Delphi
Inclua na seção uses:Windows
{ Mantém pressionada CTRL }
keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
Consulte mais informação
Ocultar/exibir o cursor do mouse no Delphi
Inclua na seção uses:Windows
- Escreva a função abaixo:
function MouseShowCursor(const Show: boolean): boolean;
var
I: integer;
begin
I := ShowCursor(LongBool(true));
if Show then begin
Result := I >= 0;
while I < 0 do begin
Result := ShowCursor(LongBool(true)) >= 0;
Inc(I);
end;
end else begin
Result := I < 0;
while I >= 0 do begin
Result := ShowCursor(LongBool(false)) < 0;
Dec(I);
end;
end;
end;
Consulte mais informação
Programar teclas de atalho do Windows no Delphi
Gostaria de programar algumas teclas de atalho para chamar, por exemplo, uma calculadora, quando seu aplicativo estiver aberto? Consulte mais informação
Criar um Alias temporário através do seu programa no Delphi
Inclua na seção uses:DB
{ Enxergar somente configurações da sessão atual }
Session.ConfigMode := cmSession;
{ Adicionar o Alias }
Session.AddStandardAlias('MeuAlias', 'C:\DirProg', 'PARADOX');
Criar uma tabela (DB, DBF) através do seu programa no Delphi
Inclua na seção uses:dbTables, DB
procedure CriaTabelaClientes;
var
Tabela: TTable;
begin
Tabela := TTable.Create(Application);
try
Tabela.DatabaseName := 'C:\';
{ ou Tabela.DatabaseName := 'NomeAlias'; }
Consulte mais informação
Gravar fisicamente com Paradox no Delphi
Inclua na seção uses:DbiProcs
{ Se estiver usando TTable, coloque nos eventos
AfterPost e AfterDelete a seguinte linha: }
Consulte mais informação
Obter a quantidade de registros total e visível de uma tabela no Delphi
Inclua na seção uses:DbiProcs
Os componentes TTable e TQuery possuem a propriedade RecordCount que indicam a quantidade de registros da tabela. No entanto esta propriedade é dependente de filtros, ou seja, se tivermos uma tabela com dez registros com campo "Codigo" de 1 a 10 e aplicarmos o filtro mostrado a seguir, a propriedade RecordCount retornará 5 e não 10. Consulte mais informação