Dicas de nossos Softwares e Dicas Gerais de Informática:


Dicias Gerais Windows:
Clique aqui para ver dicas sobre o sistema operacional Windows.

Ferramenta Delphi:
-Navegação no tmemo pela teclas up e down:
//No evento onKeyDown do form é só por o seguinte codigo

if KEY = 34 then begin
SetScrollPos(Memo.Handle,SB_VERT,GetScrollPos(Memo.Handle,SB_VERT) + 1,TRUE);
SendMessage(Memo.Handle,WM_VSCROLL,SB_LINEDOWN,1);
end;
if KEY = 33 then begin
SetScrollPos(Memo.Handle,SB_VERT,GetScrollPos(Memo.Handle,SB_VERT) - 1,TRUE);
SendMessage(Memo.Handle,WM_VSCROLL,SB_LINEUP,1);
end;

-Evitar mensagem de Key Violation
//Colocar no evento on posterror de um table

Var ErroMens :String;
begin

ErroMens := E.Message;
if ErroMens = 'Key violation.' then begin
ShowMessage('Chave Primária Inválida !');
action := daAbort;
end;

-Evitar mensagem de Key Violation
//Colocar no evento on posterror de um table

Var ErroMens :String;
begin

ErroMens := E.Message;
if ErroMens = 'Key violation.' then begin
ShowMessage('Chave Primária Inválida !');
action := daAbort;
end;

-Fechar todas as tabelas de um aplicativo
//Em um evento de um botão por o seguinte código

var i: integer;
begin
with Session do
for i:= 0 to DatabaseCount - 1 do
Databases[I].Close;
end;

-Reindexando índices de tabela paradox
//Adicionar no uses as seguintes units
uses dbTables, DbiProcs;
//Em um evento de um botão por o seguinte código
begin
table1.exclusive := true;
table1.open;
dbiRegenIndexes(table.Handle);
end;

-Reindexando índices de tabela paradox
//Adicionar no uses a seguinte unit
uses dbTables, DbiProcs;
//Em um evento de um botão por o seguinte código
begin
table1.exclusive := true;
table1.open;
dbiRegenIndexes(table.Handle);
end;

-Mudar a cor de um ProgessBar
//Adicionar no uses a seguinte unit
CommCtrl

//Em um evento de um botão por o seguinte código
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);


-Abrir um outro programa de dentro do programa em execução
//Adicionar no uses a seguinte unit
uses
  
ShellApi;
{ abre o  notepad }
ShellExecute(Handle, 'open', 'notepad.exe', '', nil, SW_SHOW);
WinExec('C:\Windows\notepad.exe', SW_SHOW);
{ abre notepad e carrega um arquivo  }
ShellExecute(Handle, 'open', 'notepad', 'c:\MeuArquivo.txt', nil, SW_SHOW);


 


Copyright © 2005 SISMT Soluções Sistemas e Consultoria - Todos os direitos reservados. Cuiabá-MT Fale conosco