Impedindo ctrl+del num dbgrid no Delphi
Como impedir de apagar um registro em um DBGRID através das teclas CTRL+DEL?
Colocar no evento OnKeyDown do DBGRID:
Como importar dados de um arquivo texto para uma tabela no Delphi
Var
sArquivo: TextFile;
Entrada, sArq2: string;
iLinha: integer;
begin
tblCep.Open;
tblCepLoc.Open;
bCancelaImport := False;
AssignFile(sArquivo, FileNameEdit1.FileName);
sArq2 := After(‘Cep_Loc.txt’,FileNameEdit1.FileName);
Função transformar minutos p/ horas no Delphi
//Função para transformar minutos em horas
//Ex: 90 min = 1:30
Function MinparaHora(Minuto: integer): string;
var
hr, min : Integer;
begin
hr := 0;
while minuto >= 60 do begin
minuto := minuto – 60;
hr := hr + 1;
end;
min := minuto;
Result := FormatFloat(’00:’, hr) + FormatFloat(’00’, min);
end;
Como limpar o conteúdo de um lookupcombobox no Delphi
DBLookupComboBox1.KeyValue:=’ ‘;
Como Limpar Todos os Edit’s de um Form de uma só vez no Delphi
Procedure LimpaEdit;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ”;
end;
end; ou
Obrigando a digitação de maiúsculos em um memo no Delphi
Procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= Upcase(Key);
end;
Como posso saber a coluna que estou posicionado no dbgrid no Delphi
É fácil saber a coluna que você está no DBGrid.
Para isso vamos usar a propriedade SelectedIndex que retorna o número da coluna.
Outras opções no Dialog
--ignore- Ignora as opções inválidas. Serve para manter compatibilidade apenas.
--size-err- Opção antiga que não é mais usada.
--beep- Apita cada vez que a tela é desenhada.
--beep-after- Apita na saída com o Ctrl+C
--sleep <N>- Faz uma pausa de N segundos após processar a caixa. Útil para a Infobox.
--timeout <N>- Sai do programa com erro caso o usuário não faça nada em N segundos.
--no-kill- Coloca a caixa Tailboxbg em segundo plano (desabilitando seu SIGHUP) e mostra o ID de seu processo na STDERR.
--print-size- Mostra o tamanho de cada caixa na STDERR.
--and-widget- Junta uma ou mais caixas numa mesma tela (sem limpá-la).
Como saber se o ano é bissexto no Delphi
Function TForm1.AnoBiSsexto(Ayear: Integer): Boolean;
begin
Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if AnoBiSexto(1999) Then
ShowMessage(‘Ano de 1999 é Bissexto’)
Else ShowMessage(‘Ano de 1999 não é Bissexto’);
end;
Opções que devem ser usadas sozinhas na linha de comando no Dialog
--clear- Restaura a tela caso o Dialog a tenha bagunçado.
--create-rc <arquivo>- Gera uma arquivo de configuração do Dialog.
--help- Mostra a ajuda do dialog, com as opções disponíveis.
--print-maxsize- Mostra o tamanho atual da tela na STDERR.
--print-version- Mostra a versão do Dialog na STDERR.
--version- O mesmo que ‘–print-version’.
Opções relativas aos dados informados pelo usuário no Dialog
--separate-output- Na caixa Checklist, retorna os itens selecionados, um por linha e sem aspas. Bom para scripts!
--separate-widget <separador>- Define o separador que será colocado entre os retornos de cada caixa. Útil quando se trabalha com múltiplas caixas. O separador padrão é o TAB.
--stderr- Retorna os dados na Saída de Erros (STDERR). Opção já usada normalmente.
--stdout- Retorna os dados na Saída Padrão (STDOUT) ao invés da STDERR.
--max-input <tamanho>- Tamanho máximo do texto que o usuário pode digitar nas caixas. O tamanho padrão é 2000 caracteres.
Opções para fazer ajustes na caixa no Dialog
--aspect <taxa>- Taxa que ajusta o dimensionamento automático das caixas. É a relação largura / altura, sendo o padrão 9, que significa 9 colunas para cada linha.
--begin <y> <x>- Especifica a posição inicial da caixa, relativo ao canto superior esquerdo.
--defaultno- Faz o botão ‘Não’ ser o padrão da caixa YesNo.
--default-item <item>- Define qual vai ser o item pré-selecionado do Menu. Se não especificado, o primeiro item será o selecionado.
--shadow- Desenha a sombra da caixa. Opção já usada normalmente.
--no-shadow- Não desenha a sombra da caixa.
--no-cancelou--nocancel- Não mostra o botão CANCELAR nas caixas Checklist, Inputbox e Menu. A tecla Esc continua valendo para sair da caixa.
--item-help- Usada nas caixas Checklist, Radiolist ou Menu, mostra uma linha de ajuda no rodapé da tela para o item selecionado. Esse texto é declarado se adicionando uma nova coluna no final da definição de cada item.
--help-button- Mostra um botão de “Help”. Seu código de retorno é 2.
Opções para fazer ajustes no texto da caixa no Dialog
--cr-wrap- Mantém as quebras de linha originais do texto da caixa, para não precisar colocar os ‘\n’. Mas lembre-se que caso a linha fique muito grande, o Dialog a quebrará no meio para caber na caixa.
--no-collapse- Mantém o espaçamento original do texto, não retirando os TABs nem os espaços em branco consecutivos.
--tab-correct- Converte cada TAB para N espaços. O N é especificado na opção ‘–tab-len’ ou o padrão 8 é assumido.
--tab-len <N>- Especifica o número de espaços que serão colocados no lugar de cada TAB, quando usar o opção ‘–tab-correct’.
--trim- Limpa o texto da caixa, apagando espaços em branco no início, espaços consecutivos e quebras de linha literais.
Opções para definir os textos da caixa no Dialog
--backtitle <texto>- Especifica o título do topo da tela, que fica no plano de fundo, atrás da caixa (Veja exemplo do “Pegador de Dados”).
--title <texto>- Define o título da caixa, colocado centralizado na borda superior.
--cancel-label <texto>- Especifica o texto para ser mostrado no botão “Cancel”.
--exit-label <texto>- Especifica o texto para ser mostrado no botão “Exit”.
--help-label <texto>- Especifica o texto para ser mostrado no botão “Help”.
--ok-label <texto>- Especifica o texto para ser mostrado no botão “OK”.
Configurando as cores das caixas no Dialog
É possível configurar as cores de TODOS os componentes das caixas, como textos, borda, botões e fundo da tela. Dessa maneira pode-se personalizar os programas que usam o Dialog para a empresa ou indivíduo que o utilizará.