Kikonanet

Olá, Você coloca ele no seu form, dê um duplo clique nele... Aparecerá um form com um menu... você vai adicionando os items (botao direito Insert) de acordo com o q você precisa... você usao a propriedade Caption, Name, os eventos para cada item do Popup E para usar o PopupMenu, é só você setar a propriedade PopMenu do objeto em q você quer usar o Menu. Ex. Na propriedade Popup do Form você coloca PopupMenu1 qualquer coisa posta ae Abs. Kiko

Olá, Dê uma olhada no site da Zeos http://www.zeoslib.net Abs. Kiko

Olá, Veja se te ajuda Memo1.Lines.Count; Conta as linhas do Memo Abs. Kiko

Olá, você colocou aspas duplas: ". Coloca aspas simples '': (Components as TLAbel).Caption :=''; // Note a pequena diferença nas aspas "(dupla) ''(simples) É alguma declaração feita incorreta... Dê uma olhada na linha referente ao erro. Abs. Kiko

Olá, Use essa função para ter dd/mm: FormatDateTime('dd/mm',now); Tenta assim: qryNiver.SQL.Add('Select campos from tabela where campodata =' +QuotedStr(FormatDateTime('dd/mm',now)); Abs. Kiko

Ramon, quando o .exe é gerado no Delphi, ele já leva tudo pra rodar nas máquinas, sem precisar de instalar Dll's (só se você usar alguma dll específica sua ou de terceiros, dai você precisará leva-la tmb)... Abs. Kiko

Olá Raphael, Você pode copiar as tabelas assim: CopyFile('c:\arquivo', 'c:\destino',True); Pode usar o Winzip se você quiser: WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+'c:\Teste.zip' + '" ' + 'c:\SeuPrograma\seubanco.gdb',sw_ShowNormal); Espero q te ajude Abs. Kiko

Olá, Inserir with ADOQry do begin Close; SQL.Clear; SQL.Add('INSERT INTO TABELA(Campo1,Campo2,Campo3)'); SQL.Add('VALUES("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'")'); ExecSQL; end; Update with ADOQry do begin Close; SQL.Clear; SQL.Add('UPDATE TABELA SET Campo1 = "'+Edit1.text+'", Campo2 ="'+Edit2.text+'"'); SQL.Add('WHERE Cad_Codigo = '+Codigo.text+''); ExecSQL; end; Deletar with ADOQry do begin Close; SQL.Clear; SQL.Add('DELETE FROM TABELA'); SQL.Add('WHERE Codigo='+EditCodigo.text+''); ExecSQL; end; Abs. Kiko

Olá Halan, Tenta assim: Table1.Filter:='NOME = '+Edit1.Text+' ' + '%'; Abs. Kiko

Olá TBaiano, Eu sou de SP e meu RG tmb é de 9 digitos (eu creio q seja um padrão) Abs. Kiko

Olá Halan, você pode usar '%'. Ex: Busca pelo começo da frase. ex: Hal - mostral Hall, Halan...etc Table1.Filter := 'Nome ='+ ''''+ Edit1.Text + ''' +'%''; Abs. Kiko

Olá OSJunior, Ae valeu pela força!! Ae testa essa função function DeleteFolder(FolderName: String; LeaveFolder: Boolean): Boolean; var r: TshFileOpStruct; begin Result := False; if not DirectoryExists(FolderName) then Exit; if LeaveFolder then FolderName := FolderName + ' *.* ' else if FolderName[Length(FolderName)] = ' \ ' then Delete(FolderName,Length(FolderName), 1); FillChar(r, SizeOf(r), 0); r.wFunc := FO_DELETE; r.pFrom := PChar(FolderName); r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION; Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted)); end; Usa-se assim deleteFolder('c:\temp',false); No caso você colocaria deleteFolder(Edit1.text,false); Para apagar um arquivo if FileExists('C:\MEUDIR\MEUARQ.DAT') then DeleteFile('C:\MEUDIR\MEUARQ.DAT'); Abs. Kiko

Olá João, Tente assim para buscar por exemplo: Adr - Mostra todos q comecem por Adr... procedure TForm2.Edit1Change(Sender: TObject); begin Query1.close; Query1.sql.clear; Query1.sql.add('select * from TbFuncionarios where Nome_func like'+#39+Edit1.Text+ '%'+#39); Query1.open; end; Ou assim para busca exata. ex: Adriano procedure TForm2.Edit1Change(Sender: TObject); begin Query1.close; Query1.sql.clear; Query1.sql.add('select * from TbFuncionarios where Nome_func ='+QuotedStr(Edit1.Text)); Query1.open; end; Abs. Kiko

Olá, veja se é isso: var F: textFile; begin //indica os tipos de arquivos SaveDialog1.Filter := 'Arquivos texto (*.txt) |*.TXT'; //abre a caixa de dialogo if SaveDialog1.Execute then begin //associa o nome do arquivo a variavel F If FileExists(SaveDialog1.FileName) then begin // qui você pergunta se quer reescrever o arquivo end; end; Abs. Kiko

Olá, If FileExists('C:\arquivo') then... Abs. Kiko

Ae Felipe, A idéia do Progr'amador é muito boa. É isso ai Abs. Kikonanet

Vamos lá, Faz o seguinte - Deixe o botão abrir visible e o Fechar visible=False No Onmousemove do Form: procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ButtonAbrir.Visible:=True; ButtonFechar.Visible:=False; end; No OnMouseMove do Botao Abrir procedure TForm1.ButtonAbrirMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ButtonFechar.Visible:=True; ButtonAbrir.Visible:=False; end; Testa ae.. Abs. Kiko

O ImageList (palheta Win 32) é para você armazenar as imagens do botão. Coloque no form e dê um duplo clique nele e adicione as imagens com add Abs. Kiko

Olá, Quando sua aplicação for aberta, você lê o txt e em seguida incrementa um e salva no arquivo. Testa ai, var F: TextFile; Aux:string; k:integer; // Variavel para contar begin AssignFile(F,'c:\arquivo.txt'); Reset(F); Readln(F,Aux); CloseFile(F); k:=StrToInt(Aux)+1; Aux:=IntToStr(k); AssignFile(F,'C:\arquivo.txt'); Rewrite(F); Writeln(F,Aux); CloseFile(F); end; Obs: fiz sem testar Abs. Kiko

Olá, Veja se é isso Neste código corre a tabela1 e da uma mensagem para os campos null with Query1 do begin Close; SQL.Clear; SQL.Add('Select * From tabela1'); Open; while not(EOF) do begin if FieldByName('CAMPO').AsString = '' then ShowMessage(FieldByName('ID').AsString + ' CAMPO NULL'); next; end; end; Para somar siga a mesa idéia, no Loop While coloque uma variável ex: SOMA var Soma: integer; begin Soma:=0; with Query1 do begin Close; SQL.Clear; SQL.Add('Select * From tabela1'); Open; while not(EOF) do begin Soma:=Soma+FieldByName('CAMPO').AsInteger; next; end; end; end; Abs. Kiko

Olá Felipe, Veja se é isso: Coloque no evento OnMouseMove do Botão: btn_sairA.visible := true; E no OnMouseMove do Form: btn_sairA.visible := False; Abs. Kiko

Veja qual item do Delphi 5 você quer... http://info.borland.com/devsupport/delphi/...oads/index.html Abs. Kiko

Halan, Primeiro você verifica se o arquivo (pra salvar o nº do HD existe), se não existir: O programa lê o número do HD e cria/salva no arquivo.. Se o arquivo exitir você só compara. qualquer coisa posta ae Abs. Kiko

Olá, Tenta assim: ShowMessage(SerialNum('c')); O parâmetro seria o disco (unidade) Abs, Kiko

Olá Renato, Ve se te ajuda http://scriptbrasil.com.br/forum/index.php...773&hl=discador Abs. Kiko