Kikonanet

Olá, você pode encontrar exemplos no próprio Delphi, na pasta DEMOS. Abs. Kiko

Olá, tenta assim: If DBEdit2.Text = "" Then // Usa aspas duplas! Begin ShowMessage('É necessário Preencher todos os campos!!!'); DBEdit2.SetFocus; Exit; End; Abs. Kiko

Olá, Qual erro q aparece? Abs. Kiko

Olá, Ex: WebBrowser1.Navigate('192.168.0.1'); Abs. Kiko

Olá, Qual é sua dúvida? Abs. Kiko

Olá, Dê uma olhada neste link http://www.imasters.com.br/artigo.php?cn=1201&cc=49 Abs. Kiko

Olá, você pode ir postando suas dúvidas aqui no fórum. Tenho certeza q todos irão ajudá-lo! Abs. Kiko

Olá, Existem alguns componentes pra fazer isso, mas em todo caso olhe este link http://delphi.about.com/od/kbwinshell/l/aa121801a.htm Abs. Kiko

Olá, Olha um exemplo: with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM tabela WHERE campo = (:camp)'); Parameters.ParamByName('Camp').Value:=Edit1.Text; Open; end; Abs. Kiko

Olá, Antes adicione um panel do StatusBar. StatusBar1.Panels[0].Text:='Usuário'; Abs. Kiko

Olá, Posta seu código ai... Abs. Kiko

Olá, Verifica se você tem permissão para excluir o arquivo! Tente assim DeleteFile(PChar(doc)); Abs. Kiko

Olá, você está colcando o caminho completo? Verifica se o arquivo existe! if FileExists('c:\teste.txt') then DeleteFile('c:\teste.txt'); Abs. Kiko

Olá, você pode usar uma ZQuery ligado a um DataSource (ligado ao DBGrid) with ZQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); SQL.Add('WHERE NOME ='+QuotedStr(Edit1.Text)); Open; end; Abs. Kiko

Olá, Como o bastard2003 disse, só depende de vc! Dê uma estudada tmb em lógica de programação. Abs. Kiko

Olá, Dê uma olhada neste link: http://scriptbrasil.com.br/forum/index.php...=15#entry208191 Abs. Kiko

Olá, Dê uma olhada neste link da seção de dicas: http://scriptbrasil.com.br/forum/index.php...=30#entry266338 Abs. Kiko

Olá, você pode colocar no evento OnExit do Edit. Ex.: procedure TForm1.Edit1Exit(Sender: TObject); begin Edit1.Text:=AnsiToAscii(Edit1.Text) end; Abs. Kiko

Olá, Dê uma olhada neste link. Veja se te ajuda! Link Abs. Kiko

Olá, Tenta assim usar estas funções DirectoryExists('c:\teste') ou FileExists('C:\test.txt') Abs. Kiko

Olá, Tem uma função chamada StringReplace(); É isso q você queria? Abs. Kiko

Olá, Olhe os links: http://www.forumweb.com.br/foruns/index.ph...1881&hl=scanner http://www.forumweb.com.br/foruns/index.ph...0268&hl=scanner Espero q ajude! Abs. Kiko

Olá, você pode fazer assim: - Dê um duplo clique no statusbar e adicione um panel para colocar o nome faça isso: StatusBar1.Panels[0].Text:=ADOQuery1.FieldByName('Campo_Usuario').AsString; Se você usa form de login, você pode guardar o usuário numa variável e jogar no statusbar! Abs. Kiko

você quer mostrar aonde? Statusbar? Label? Abs. Kiko

Olá, Eu uso esse código em um Edit, mas dá para você usar em um combo! Coloque no Evento OnChange var Aux : integer; begin with ADOQryForn do begin Close; SQL.Clear; SQL.Add('SELECT * FROM TblAtivoImobilizado'); Open; end; // Estou copiando somente o conteudo até a posição do cursor. // Note os parametros do locate. Estou passando que a busca é sem checagem de caixa alta/baixa e resultados parciais servem. Estou usando a base NorthWind do SQL server. if ADOQryForn.Locate('Fornecedor',copy(EditFornecedor.Text,1,EditFornecedor.SelStart),[loCaseInsensitive,loPartialKey]) then begin EditFornecedor.OnChange := nil; // Não queremos ativar o evento agora. Aux := EditFornecedor.SelStart; // Posição do cursor no editFornecedor EditFornecedor.Text := ADOQryForn.FieldByName('Fornecedor').AsString; // Foi o que encontramos pois o codigo só passa por aqui se existe a informação EditFornecedor.SelStart := Aux; // Atualizamos a posição do cursor. EditFornecedor.OnChange := EditFornecedorChange; // Agora podemos chamar novamente. end; ADOQryForn.Close; end; Abs. Kiko