Churc

quer diminuir mais ainda...rsrs if ed_cod.Text = '' then begin ed_cod.Text := '0'; end; pra que usar o begin se você passa somente um argumento... if ed_cod.Text = '' then ed_cod.Text := '0'; não muda em nada, somente na estrutura do código e talvez alguns bits ehehe abraços

pra escrever valores DWORD se usa WriteInteger exemplo pra gravar o valor da cor no registro como Dword var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software\Churc\Teste',true); reg.WriteInteger('Vermelho',StringToColor('clRed')); reg.CloseKey; reg.Free; end; agora exemplo de como puxar... var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software\Churc\Teste',true); Form1.Color := reg.ReadInteger('Vermelho'); reg.CloseKey; reg.Free; end; espero ter ajudado abraços

ta copiando usando o Copyfile normal? cola a função que copia, ping é útil para saber se a máquina está ligada, agora você pode dar a mensagem de erro usando o Result do copyfile, ai mesmo que se a máquina estive ligada e der erro ao copiar o usuário do sistema vai ficar sabendo que não copiou... abraços

faz o seguinte, da pra fazer sim com o label... eu testei e funcionou mais testa antes pra ver se é isso... cria o form, coloca a propriedade BorderStyle dele pra BsNone Coloca um label, escreve qualquer coisa nele, coloca a propriedade Transparent do Label pra True agora faz o seguinte, no evento onCreate do Form coloca assim: NomedoForm.Brush.Style := bsClear; agora eu recomendaria você adicionar um Timer com o Interval dele pra 100 (100 mesmo não 1000 ahuehua) e no onTimer do Timer você coloca: Repaint; porque isso? Porque o que está atrás do form fica desenhado na tela, exemplo, você abre o form fica invisível e tal, agora minimiza o q está atrás do label, fica manchado a tela, então o repaint vai impedir isto... espero ter ajudado abraços

também não entendi... seria tipo a escrita aparecer emcima de qualquer coisa somente a escrita sem o form ou a caixa de texto? abraços

tem outra maneira sim, criando manualmente as funções... abaixo da seção private adicione procedure appOnException(Sender: TObject; E: Exception); ficando mais ou menos isso: private procedure appOnException(Sender: TObject; E: Exception); agora você cria a procedure, pode-se usar como falei no post anterior implementation {$R *.dfm} procedure TNomedoForm.appOnException(Sender: TObject; E: Exception); begin if (E is EDBENGINERROR) then begin Application.MessageBox( 'Servidor está desligado bla bla bla'+#13+ 'Nome do seu Programa - Erro', MB_OK + MB_ICONERROR); //enfim coloque o q tiver pra fazer aqui quando ocorrer este erro end; end; agora no Evento onCreate do FORM PRINCIPAL DO PROGRAMA adicione Application.OnException := appOnException; ficando mais ou menos isso procedure TNomedoForm.FormCreate(Sender: TObject); begin Application.OnException := appOnException; end; pronto, agora qualquer exceção que ocorrer na aplicação você pode tratar na procedure que foi criada: appOnException espero q isso resolva abraços

verdade, eu nunca q daria o código dos meus sistemas de graça porque vo viver doque? dando códigos de graça pros outros modificarem, rancar seu nome de tudo e revenderem... parece piada não é? auahuauha abraços

verdade, no firebird seria bem mais fácil fazer isso fora os recursos q ele te oferece abraços

tem sim amigo, você teria q fazer o seguinte... "Capturar os erros do programar e repassar para usuário da forma que achar melhor" Adicione o componente chamado "ApplicationEvents" que fica na paleta Additional Nomeie ele para appevents para ficar mais fácil de se utilizá-lo Nos eventos desse componente, tem lá OnException então nesse evento você adiciona... exemplo: abraços