Jhonas

Seria algo parecido com isto, entretanto a implementação do código é por sua conta unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) FindDialog1: TFindDialog; ReplaceDialog1: TReplaceDialog; procedure ReplaceDialog1Replace(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure DoMatchCase(Procurar, Trocar : string); begin // frMatchCase This flag is turned on (off) when the user selects (deselects) the Match Case check box. To select the check box by default when the dialog opens, set frMatchCase at design time. end; procedure DoWholeWord(Procurar, Trocar : string); begin // frWholeWord This flag is turned on (off) when the user selects (deselects) the Match Whole Word check box. To select the check box by default when the dialog opens, set frWholeWord at design time. end; procedure TForm1.ReplaceDialog1Replace(Sender: TObject); begin with Sender as TReplaceDialog do begin if frMatchCase in Options then DoMatchCase(FindText, ReplaceText) else if frWholeWord in Options then DoWholeWord(FindText, ReplaceText); end; end; end. OBS: Para te ajudar um pouco sobre o assunto veja este post http://scriptbrasil.com.br/forum/index.php...st&p=473652 abraço

Pelo visto voce é novato no delphi... segue o código completo os erros acima são em função da não declaração do componente WebBrowser wb: TWebBrowser; unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtnrs, OleCtrls, ExtCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; wb: TWebBrowser; Image1: TImage; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses activex, jpeg; procedure TForm1.Button1Click(Sender: TObject); var viewObject : IViewObject; r : TRect; bitmapdst, bitmap : TBitmap; RectOrigem, RectDestino: TRect; BitmapFont, BitmapDest, MyBMPImage: TBitmap; begin if wb.Document <> nil then begin wb.Document.QueryInterface(IViewObject, viewObject); if Assigned(viewObject) then try bitmap := TBitmap.Create; bitmapdst := TBitmap.Create; try bitmap.Height := wb.Height; // 288; // 322wb.Height; bitmap.Width := wb.Width; // 322; // wb.Width; r := Rect(0, 0, bitmap.width-1, bitmap.height-1); viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0); RectOrigem := Rect(101, 101, 452, 388); RectDestino := Rect(0, 0, 351, 287); Bitmapdst.Width := 352; Bitmapdst.Height := 288; Bitmapdst.Canvas.CopyRect(RectDestino, Bitmap.Canvas, RectOrigem); with TJPEGImage.Create do try Assign(bitmapdst); if SaveDialog1.Execute then SaveToFile(SaveDialog1.FileName); finally Free; end; finally bitmapdst.Free; bitmap.Free; end; finally viewObject._Release; end; end; end; end. Procure ler mais sobre delphi atraves de apostilas ou tutoriais abraço

identificador não declarado: "Value" Este é um campo da sua tabela ? e se for, ele é string ou integer ? o Combobox está retornando uma string abraço

Procure no site da Microsoft um programa de atualização ou compatibilidade para esta impressora abraço

O fato de formatar o HD e ficar um bom tempo sem apresentar problemas, indica que pode ser duas coisas: 1 - ao formatar voce eliminou algum vírus que poderia causar este problema 2 - ao formatar voce recuperou trilhas ruins ( Bad clusters ) no seu HD verifique a existência de setores defeituosos e tente fazer recuperação desses setores no hd usando as ferramentas do windows. verifique a existência de vírus nos programas baixados da internet abraço

Voce conseguiria corrigi-los se entendesse as mensagens em ingles Veja o que diz cada mensagem e tente corrigir. abraço

Se quiser pode usar um Table com o Combobox procedure TForm1.ComboBox1Click(Sender: TObject); begin Table1.Active := true; Table1.Edit; Table1TIPO.Value := ComboBox1.Items.Strings[ComboBox1.itemindex]; Table1.Post; end; se quiser usar um DBCombobox coloque na propriedade DataSource o nome do componente DataSource que esta linkado a sua tabela ( ex: Table1 e DataSource1 ou Query1 e DataSource1 ) e na propriedade DataField o nome do campo da sua tabela < UF > ao digitar a silgla no DBCombobox a mesma será incluída na sua tabela na posição onde estiver o ponteiro do registro OBS : a tabela deverá estar liberada para escrita abraço

clique com o mouse em cima desta palavra [ var viewObject : IViewObject; ] e aperte F1 ( Help do delphi ) abraço

coloque o código que voce usa para gravar as informações na tabela ... fica mais facil modificar este código abraço

veja estes tópicos http://scriptbrasil.com.br/forum/index.php...ighlite=captura mais epecificamente este http://scriptbrasil.com.br/forum/index.php...st&p=522643 abraço

Realmente está muito confuso o seu raciocínio, mas veja se é isto que está querendo // Para uma seleção determinada procedure TForm1.Button1Click(Sender: TObject); begin if (ComboBox1.Items.Strings[ComboBox1.Itemindex] = 'A') and (ComboBox2.Items.Strings[ComboBox2.Itemindex] = 'F') then begin showmessage('opção escolhida : A + F ' ) end; end; // Para qualquer seleção escolhida procedure TForm1.Button2Click(Sender: TObject); begin showmessage('opção escolhida :' + ComboBox1.Items.Strings[ComboBox1.Itemindex] + ' + ' + ComboBox2.Items.Strings[ComboBox2.Itemindex]); end; abraço

Tente este endereço http://www.devguy.com/fp/cfgmgmt/install.htm ou tente este forum http://www.portaljava.com/forum/posts/list/7071.page abraço

por definição um Combobox é uma caixa que deve conter opções de escolha... sendo assim ao clicar numa das opções voce já está determinando a sua escolha. seja mais especifico dando um exemplo do que pretende fazer abraço

voce pode usar o componente DBComboBox que tem acesso ao banco de dados diretamente mas se quiser mesmo usar o Combobox voce deve fazer referencia ao campo da tabela exemplo procedure TForm1.ComboBox1Click(Sender: TObject); begin Query1.Active := true; Query1.Edit; Query1TIPO.Value := ComboBox1.Items.Strings[ComboBox1.itemindex]; Query1.Post; end; abraço

Não tem Se quiser chamar o botão sem ter que clicar nele, coloque no caption dele &T ou outra letra ou palavra ao clicar a tecla T o botão será ativado ( clicado ) outros exemplos no caption do botão < &Alterar > = teclando letra A voce estrará clicando no botão &Excluir = letra E &Imprimir = letra I Im&primir = letra P abraço

o código que te passei é para uso com o componente IBQuery, IBDataBase e IBTransaction se voce estiver usando o componente Query, então a coisa muda um pouco Supondo que voce coloque os componente de conexão no form do Menu, sim. a forma do usuario poder alterar o caminho do banco de dados sem ter que alterar o exe é dessa maneira exemplos no forum http://scriptbrasil.com.br/forum/index.php...l=net\.txt http://scriptbrasil.com.br/forum/index.php...l=net\.txt http://scriptbrasil.com.br/forum/index.php...l=net\.txt abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ghlite=treeview abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...=install+shield abraço

voce pode ligar o seu notebook via cabo, mas para operar em wirelles precisa de um outro tipo http://www.computershoppe.co.uk/popup_imag...c368808aa5bea6f http://images.google.com.br/imgres?imgurl=...Dpt-BR%26sa%3DN abraço

quando o sistema operacional trava logo de inicio, indica problemas de bad clusters no hd ( trilhas ruins ) que podem estar compromentendo o funcionamento correto do windows. Faça uma varredura no hd a pocura de trilhas defeituosas e tente reparar atraves do aplicativo do proprio windows em ultimo caso sugiro formatar o hd e reinstalar o windows abraço

Como configurar http://www.encore-usa.com/download/specsheet/ENHWI-SG.pdf Manual do usuário http://www.retrevo.com/search/v2/jsp/mytre...vo.jsp?page=man Drive do roteador http://www.nodevice.com.pt/driver/ENHWI-SG/get34328.html abraço

dá mensagem de erro que a senha não existe a camera foi configurada para trabalhar com acesso restrito .... reveja as configurações abraço

PS: o pc não aparece nada... o led do power liga, a fonte e o cooler do processador tb, mas desliga no mesmo instante... Isto indica que tem um curto circuito em algum componente.. provavelmente no processador, memoria ou ainda em um dos periféricos Faça um teste .... vá desligando da placa mãe um por um dos periféricos ... primeiro o cd rom, depois o drive A, depois placa de rede, placa de fax-modem, placa de som, place de video e assim por diante ate chegar no processador quando achar o componente em curto o problema para. OBS: já tive esse problema e era um curto na placa de Fax-modem abraço

localhost:3000/evento/1 (Deixa de funcionar) isto ocorre porque voce esta apontando para outra pasta abraço

tente estes endereços: http://www.geovista.psu.edu/ConceptVISTA/cv4release.jsp http://www.geovista.psu.edu/ConceptVISTA/launch.jsp http://technet.microsoft.com/en-us/library/dd129901.aspx abraço