Jhonas

OK ... mas pela minha vivência neste forum, vai ser dificil abraço

Para encontrar um caption de um botão, será necessario procurar pelas janelas ativas e não pelo nome do processo Faça uma busca no forum pela palavra processos e veja o que encontra abraço

Veja se resolve with dm.SPAtualiza_Situacao do begin Parameters.ParamByName('@Codigo_Animal').Value:= dm.qryconsulta_ver_coberturaCodigo_Animal.AsInteger; Parameters.ParamByName('@Codigo_Situacao').Value:= @situacao_vaca_lac_coberta; ExecProc; end; abraço

Para iniciar o serviço do FireBird clique em Iniciar > Executar ..... e digite services.msc e na janela - Serviços(local) - selecione o nome do serviço ( Firebird Server - DefaultInstanse ) , clique duas vezes sobre o mesmo para abrir a janela ( Propriedades Firebird Server ) e a seguir clique no botão Iniciar Em Tipo de Inicialização coloque Automático e clique no botão OK abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=webbrowser http://scriptbrasil.com.br/forum/index.php...lite=FindDialog abraço

instale da mesma forma que no Windows Vista http://correiotec.com/sql-server-2005-no-windows-vista/ http://www.microsoft.com/sqlserver/2005/en...quirements.aspx OBS: Lembre-se que o windows 7 é mais chato em questão de segurança, então voce tera que alterar algumas permissões de escrita no diretório C:\ para que não dê erros. abraço

Veja o que encontra neste link http://scriptbrasil.com.br/forum/index.php...st&p=576473 abraço

A idéia é que se use o form principal como mdiform apenas para conter o Menu de opções os demais forms ( fsMDIChild : Form 'filho' de um Form MDI 'pai') sendo que nesse caso voce pode colocar qualquer componente nesses forms, e nenhum deles será sobreposto em outro form quando se usa botões no form principal ( tipo botões de navegação para registros ) os mesmos botões servirão para qualquer form mdichild, bastando a voce apenas controlar o dataset em questão. então se a intensão é trabalhar dessa maneira, então voce deve seguir as regras http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=139 http://etutorials.org/Programming/masterin...dows+in+Delphi/ abraço

isso é necessário para que os dados sejam atualizados na grid ... necessariamente não precisa ser em um botão, pode ser em algum evebnto da propria grid propriedade ou evento ??? se for evento, voce deve criar o código para efetuar a deleção da linha e a sua atualização abraço

defino Currency True para algum campo deste ClientDataSet esse campo só poderá ser do tipo inteiro no Grid o campo definido com o currency fica sem o valor real do campo mostrando umas barras ao invés do valor isso é bug de componente ... tente excluí-lo ( DBGrid ) e colocá-lo novamente no form abraço

Isso depende ... se tivermos um numero mínimo ( pelo menos 20 membros ) que tenham tempo e estejam dispostos a participar realmente desse torneio. outra coisa a levar em conta é o nível de conhecimento de cada um... exemplo: posso pedir algo que para mim seria uma coisa muito simples de fazer, entretanto outros poderiam ter enormes dificuldades se não tiverem um bom conhecimento da linguagem observo que mais de 98% dos participantes do forum querem apenas solucionar os problemas que encontram no seu dia a dia, seja num trabalho de escola, seja numa tarefa da empresa, ou simplesmente porque copiaram um código da internet que não está funcionando corretamente. se houver interesse suficiente, acho que posso bolar alguma coisa para voces OBS: Além do mais, estou quase desistindo do forum .... não consigo navegar 15 minutos sem que de erro de IPS e o responsável pelo forum parece não querer resolver esse problema. abraço

nicolasbras ... bastaria fazer essa simples modificação var Form1: TForm1; dia : integer = 0; implementation {$R *.DFM} Function ProximoDiaUtil (dData : TDateTime) : TDateTime; var diap : integer; begin if DayOfWeek(dData) = 7 then dData := dData + 2 else if DayOfWeek(dData) = 1 then dData := dData + 1; if (DayOfWeek(dData) > 1) and (DayOfWeek(dData) < 7 ) then begin diap := strtoint(copy(datetostr(dData),1,2)); if diap < dia then ProximoDiaUtil := dData + (dia - diap) else ProximoDiaUtil := dData; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin Memo1.Clear; dia := strtoint(copy(datetostr(DateTimePicker1.date),1,2)); for i := 1 to 12 do begin Memo1.Lines.Append('Data da parcela ' + inttostr(i) + ' em ' + datetostr(ProximoDiaUtil(DateTimePicker1.date))); DateTimePicker1.date := DateTimePicker1.date + 30; end; end; abraço

Faça uma adaptação ao seu código Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData + 2 else if DayOfWeek(dData) = 1 then dData := dData + 1; ProximoDiaUtil := dData; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Memo1.Clear; for i := 1 to 12 do begin Memo1.Lines.Append('Data da parcela ' + inttostr(i) + ' em ' + datetostr(ProximoDiaUtil(DateTimePicker1.date))); DateTimePicker1.date := DateTimePicker1.date + 30; end; end; abraço

seja mais claro se quiser uma resposta abraço

Veja todos os arquivos http://sourceforge.net/projects/acbr/files/ abraço

Para instalar o componente vá em Component > Install component > na paleta into existing package clique no botão Browse procure pelo arquivo qrRRect.pas e clique no botão OK o componente será instalado na paleta QReport ----------------------------------------------------------- depois de instalado basta criar um quickreport colocar as bandas e adicionar o componente a uma delas como é feito com os demais exemplo: o QRShape só que este será o QRRoundRect1 abraço

como voce não especificou que tipo de controle quer sobre o teclado e mouse, veja esse exemplo de como bloquear teclado e mouse por 5 segundos ou mais exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL'; procedure TForm1.Button1Click(Sender: TObject); begin BlockInput(True); Timer1.Enabled:=True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // coloque o interval do timer para 5000 ( 5 segundos ) BlockInput(false); Timer1.Enabled:=false; end; end. abraço

Soluções possiveis: abraço

o download do pacote de componentes está neste link: http://sourceforge.net/projects/acbr/files/ abraço

Voce tem 2 opções: 1 - criar um componente ancestral do TQRShape adicionando a propriedade stRoundRect do TShape que passaria a ser qrsRoundRect no TQRShape 2 - fazer o download do componente pronto que tem essa propriedade http://www.inf.ufsc.br/~prass/vcl/impressao/qrroundrect.zip abraço

Veja esses posts: http://scriptbrasil.com.br/forum/index.php...e=salvar+imagem abraço

O Rave trabalha com conceito de projetos, onde um projeto pode conter vários relatórios Na Árvore de Objetos, selecione Report Library, e dentro dele selecione Report1. No Painel de Propriedades, altere as propriedades: Maiores informações veja nesses links http://pinga.eep.br/~mblanco/rave.doc http://aprender.unoeste.br/moodle/file.php...e_Delphi_34.pdf http://74.125.93.132/search?q=cache:52aEie...=clnk&gl=br abraço

Veja onde está o erro procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := timetostr(time()); if RBT_ligado.Checked = true then // No if não pode ter := Beep; end; abraço

Veja estes exemplos: http://www.delphimais.com/modules/wfdownlo...id=2&lid=23 https://www.scriptbrasil.com.br/script/delp...pertadorFRM.zip http://www.planetadelphi.com.br/download/4...me(despertador) begin Label1.caption := timetostr(time); if(radiobutton1.checked= true) and (time()>=strtotime(edit1.text)) then Beep(); end; Com relação a este código não existe erro .... talvez o unico problema esteja na digitação da hora no edit ... voce deve digitar a hora completa exemplo: 10:23:00 o delphi explica: o parenteses serve para: Chamar procedures e funções Comentar e compilar diretivas Enumerar tipos Avaliar tipos Avaliar tipos de interface Determinar regras de procedencia de operadores Avaliar parametros Como símbolos especiais Para maiores informações veja no help do delphi ( F1 ) abraço

ficaria dessa maneira: procedure TForm1.Button1Click(Sender: TObject); var Arquivo : Textfile; Linha : string; begin AssignFile(Arquivo, 'C:\Retorno.ret'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Linha); if pos('T',linha) = 14 then showmessage(linha); end; CloseFile(Arquivo); end; abraço