Extensos -
Permite passar qualquer número para o extenso - Todas as versões do
Delphi
Esse componente e muita mais vc encontra acessando www.tcsystems.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
Extensos -
Permite passar qualquer número para o extenso - Todas as versões do
Delphi
Esse componente e muita mais vc encontra acessando www.tcsystems.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
TBackupFile
TBackupFile é um componente que facilita e cria arquivos de backup e
restoure para seus sistemas. Items: Compatibilidade completo de Backup
e restauração Compreensão de Dados Multiplos discos Incremental ou
Backup completo Restauração parcial ou completa
Confira esse componente
Teclas de Função no Delphi
Usar as teclas de função no Delphi
procedure Tform1.FormKeyDown(Sender:TObject;
var Key: Word; Shift: TShifState);
begin
if Key = vk_F3 Then
ShowMessage('Foi pressionada a tecla F3')
end;
Acesse www.tcsystems.com.br e confira muito mais dicas.
--
FAVOR REMOVER
Reindexar Tabelas
Siga os passos a seguir:
Implementation
uses blablabla;
1 - Crie duas variaveis do tipo boolean (flagbreak e flagdoing)
var
FlagBreak, FlagDoing : Boolean;
2 - Copie a procedure REINDEX para seu projeto
procedure Reindex(DataBase : TDataBase; Table : TTable; Edit :
Testar a Impressora
Function TForm1.PrinterOnLine : Boolean;
Const
PrnStInt : Byte = $17;
StRq : Byte = $02;
PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2,
etc. }
Var
nResult : byte;
Begin
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
PrinterOnLine := (nResult and $80) = $80;
end;
A classe TStrings tem um método AddObject que
adiciona uma string para uma lista, e associa um
objeto com a string.
Se este objeto é uma string que você precisará
representa a string como um Objeto...
}
type
TString = class(TObject)
private
fStr: String;
public
constructor Create(const AStr:
O sucessor de TCustomMaskEdit com as opções estendidas. Pode verificar
os tipos de dados de entrada, pelo usuário
(Inteiro/Numero/String/Data/time/Código Posta/Fone), pode limitar seus
valores de min/max, pode configurar seu alinhamento.
Confira em www.tcsystems.com.br
--
FAVOR REMOVER
WaveForm
Tenha acesso completo para dispositivos de audio com esse componente.
Você encontra esse componente em www.tcsystems.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para
{
Este código verifica se o
computador está em rede
}
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('O computador está em rede!')
else
ShowMessage('O computador não está em rede!');
end;
Essa e outras dicas mais vc
A TCSYSTEMS está aceitando COLABORADORES para envio de artigos no
site.
Estamos criando o TOP COLABORADOR.Participe.
Email com currículo e foto para [EMAIL PROTECTED]
Conheçam o site www.tcsystems.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens
Instalação do MySQL 4.1 releaze 4.1.11
1 Download : MySQL 4.1 para windows.
http://dev.mysql.com/get/Downloads/MySQL-4.1/mysql-4.1.11
-win32.zip/from/pick
2 Instalação:
Executar arquivo setup.exe.
2.1 Apresentação do MySQL.
2.2 Selecionar tipo de instalação custom, para configurar
A TC SYSTEMS ESTÁ RECEBENDO CURRÍCULOS PARA VENDEDORES NA ÁREA
DE INFORMÁTICA COM OS SEGUINTES REQUISITOS :
- RESIDENTE NO RIO DE JANEIRO
- 2 º GRAU COMPLETO
- EXPERIÊNCIA ANTERIOR EM VENDAS
-CONHECIMENTOS BÁSICOS EM WINDOWS
emails para [EMAIL PROTECTED]
--
FAVOR REMOVER ESTA PARTE AO
Vamos colocar em um formulário dois EDIT e dois MEMOS
. No evento OnCreate do formulário coloque o seguinte código:
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Tag := Integer(Memo1);
Edit2.Tag := Integer(Memo2);
end;
No evento OnChange do Edit1 coloque o seguinte código:
14 matches
Mail list logo