Jhonas

Existe um ou mais posts versando sobre esse assunto ... faça uma pesquisa http://scriptbrasil.com.br/forum/index.php...ghlite=richedit abraço

pode ser erro de criação do proprio formulario ( Timp_historico ) a solução mais rápida é reconstruí-lo novamente abraço

o componente DsPack consegue reproduzir arquivos .asf e consegue fazer a captura das imagens tambem obs: voce pode usar o componente MediaPlayer juntamente com o DsPack http://www.ziggi.com.br/downloads/dspack se voce não conseguir, podemos estudar sobre o assunto ...ok ? abraço

Acho que vi alguma coisa a respeito num do post do Churc .. procure pelos posts dele abraço

Veja nesses links http://3d2f.com/tags/delphi/speech/component/ http://www.componentsource.com/features/sp...lphi/index.html http://text.software.informer.com/download...lphi-component/ http://delphiforfun.org/Programs/TextToSpeech.htm abraço

Seu código esta incompleto .... Veja nesses links .. vai encontrar mais informações a respeito http://www.atozed.com/IntraWeb/Compare/IWVsWebSnap.EN.aspx http://www.facunte.com.br/livros/dw7/livro...capitulo_12.pdf http://www.activedelphi.com.br/forum/viewt...9f1a978dd45a98b http://www.atozedsoftware.com/IntraWeb/index.en.aspx http://search.pudn.com/search_read.asp?keyword=intraweb abraço

a parte que deveria abrir o seu navegador

Não use coordenadas do mouse .. complica muito ... siga a sua ideia inicial if (ListView1.Selected.Index = 1) then ShowMessage(''); abraço

coloque o seu código para analise

para o que voce está querendo .. sim Mude a propriedade ViewStyle do ListView e faça o teste abraço

João Paulo ... pelo visto nem testou o código não é .... este código esta informando qual é o titulo clicado e qual é o indice da coluna abraço

procedure TForm1.ListView1Click(Sender: TObject); begin showmessage('clicou no item ' + ListView1.Items.Item[ListView1.Selected.Index].Caption); showmessage('o indice do item é = ' + inttostr(ListView1.Selected.Index)); end; abraço

O problema de usar o componente MediaPlayer é que voce deve jogar a imagem em um componente TPanel atraves da propriedade Display .... entretanto quando voce usa o Alt + Print Screen para salvar a figura que esta na tela, percebe que esta figura não está estática, pois se voce jogá-la para o Paint e mover a figura selecionada, verá que a figura ao fundo ficará se movendo independe da figura central.... por isso a imagem capturada fica escura, pois as coordenadas da figura do video não são as mesmas que foram obtidas através do Print Screen. voce pode nesse caso usar duas soluções: 1 - usar o componente TSCap32 ... veja os posts http://scriptbrasil.com.br/forum/index.php...;highlite=tscap 2 - Passar a figura que esta no TPanel para um TImage e depois salva-la no formato JPG ou ficar quebrando a cabeça por não querer usar componentes de terceiros que fazem isso abraço

With ModuloDados.QryAuxiliar do begin Close; Sql.Clear; SQl.Text:='Select * from clientes where identificacao="'+ ModuloDados.QryClientesIDENTIFICACAO.Text+'"'; Open; if IsEmpty then else begin if ModuloDados.DsClientes.state in [dsInsert] then begin ShowMessage('A Identificação já existe'); FormClientes.EditIdentificacao.SetFocus; Close; /////// <----- Exit; end else ??????? end; end; end; OBS: se o registro foi encontrado , dá a mensagem, fecha a query e sai abraço

Em que parte do seu projeto está esse código ?

Acho que agora resolve Function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n :Integer; DataR : Tdate; begin n := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; case DayOfWeek(Form1.DateTimePicker1.Date) of 1: result := (Contador-n); 7: result := (Contador-n); else result := (Contador-n-1); end; end; abraço

Isso já aconteceu comigo ... desde então não dispenso o bakup do projeto a cada modificação. abraço

Voce deve mudar o código para funcionar com a pagina que estiver sendo mostrada no seu WebBrowser abraço

Veja que fiz o código baseado nisso: depois voce coloca isso Se tivesse colocado isso no inicio já tinha sido solucionado veja como fica o codigo Function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n, d :Integer; DataR : Tdate; begin n := 0; d := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador) else d := d + 1; for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; if d = 0 then result := Contador-n-1 else result := (Contador-n-d)+d; end; procedure TForm1.BitBtn1Click(Sender: TObject); var i : integer; begin i := Dias_Uteis(DateTimePicker1.Date ,DateTimePicker2.Date); showmessage('Total de dias úteis no período : ' + inttostr(i)); end; abraço

Edit1.Text := 10:40:00 /// neste formato function Hora_Min( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; s : string; begin Hor := StrToInt(Copy(Horas,1,Pos(':',Horas)-1)); Min := StrToInt(Copy(Horas,Pos(':',Horas)+1,2)); Result := (Hor*60)+Min; end; function Hora_Seg( Horas:string ):LongInt; Var Hor,Min,Seg:LongInt; s : string; begin Hor := StrToInt(Copy(Horas,1,Pos(':',Horas)-1)); Min := StrToInt(Copy(Horas,Pos(':',Horas)+1,2)); s := trim(horas); while Pos(':', S) > 0 do begin delete(s,1,Pos(':', S)); Seg := StrToInt(Copy(s,Pos(':',s)+1,2)); end; Result := seg + ((Hor*60)+Min)*60; end; procedure TForm1.Button1Click(Sender: TObject); var seg : integer; begin seg := Hora_Seg( Edit1.Text ); showmessage(Edit1.Text + ' = ' + inttostr(seg) + ' segundos'); end; procedure TForm1.Button2Click(Sender: TObject); var min : integer; begin min := Hora_Min( Edit1.Text ); showmessage(Edit1.Text + ' = ' + inttostr(min) + ' minutos'); end; Voce só precisa ler um pouco mais sobre delphi abraço

Eder... não sei o que voce esta fazendo de errado, mas os testes que fiz aqui estão corretos. abraço

Veja esses links https://www.scriptbrasil.com.br/forum/index...howtopic=131901 http://www.inf.ufsc.br/~prass/vcl/multimidia.html abraço

Eder... aqui esta correto de acordo com o seu racicinio Experimente sem o Time i := Dias_Uteis(Query1DATA_EMISSAO.AsDate ,Query1ULT_OCORR_DATA.AsDate); VALUE:= inttostr(i); abraço

De acordo com a idenficação da janela, ela faz parte da Unit chamada RLReport {@unit RLReport - Implementação dos principais componentes e tipos do FortesReport. Esse é um código com mais de 13500 linhas de código .... Não deveria aparecer, mas já que apareceu, pode ser por falta de algum parametro abraço

Seja mais explicito .. não sei qual a finalidade dessa janela