Jhonas

Coloque nos 2 Forms Position = poScreenCenter aabraço

Veja este código http://www.koders.com/csharp/fid991070110E...557B6602D8.aspx abraço

Veja neste endereço http://www.w3schools.com/XML/xml_cdata.asp abraço

Voce terá que criar o seu próprio preview, e dessa mneira voce pode implementar a sua rotina quando o usuário clicar no botão imprimir http://scriptbrasil.com.br/forum/index.php...st&p=516309 abraço

sem problemas abraço

voce pode usar o comando insert exemplo: var S: string; begin S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } end; Aqui voce percebe que o texto 'Abe' foi inserido a partir da oitava coluna do texto da string S No caso do arquivo sintegra voce vai perceber que ao inserir a unidade na linha determinada e na posição determinada, ocorrerá um deslocamento do texto restante no mesmo comprimento do texto inserido para contornar esse problema, voce pode usar o comando delete exemplo: var s: string; begin s := 'Honest Abe Lincoln'; Delete(s,8,4); Canvas.TextOut(10, 10, s); { 'Honest Lincoln' } end; Então a partir da inserção do texto e a quantidade de caracteres que possui este texto + 1, voce deleta a partir dessa posição o mesmo numero de caracteres inserido na linha determinada. Esta seria uma das maneiras... porém, existem algumas complicações na leitura e escrita de arquivos textos Veja o que consegue fazer abraço

costumo usar em meus programas uma rotina que procura por um arquivo dentro do micro, caso não seja achado o programa abre e fecha simplesmente sem apresentar erro, mas creio não ser este o seu caso. muito provavelmente é o caminho, que dependendo da versão instalada do windows pode mudar abraço

Colega ... vejo que voce é novato no delphi, ou então teria conseguido resolver este problema... bem uma outra sugestão para voce: use um componente Memo no lugar do DBMemo ( coloque ele por cima do DBMemo)... antes de entrar neste campo voce pode limpa-lo Memo1.Clear; depois de digitar o que voce quer, basta jogar o seu conteúdo para o campo da sua tabela exemplo: DBMemo1.Lines.Append(Memo1.Lines.Text) depois é só salvar. Mas tem um porém .... se voce quiser vizualizar o conteudo do DBMemo voce pode fazer duas coisas: ou voce deixa invisivel o componente Memo, ai o conteudo já estará aparecendo no DBMemo ou voce traz o conteudo do DBMemo para o Memo Memo1.Lines.Text := DBMemo1.Lines.Text OBS: Leia mais sobre o delphi se não fica dificil abraço

o problema pode estar aqui 4 : BDE_Dir := 'C:\Arquivos de Programas\Borland\Common Files\BDE\'; veja como pode estar em outras maquinas C:\Arquivos de programas\Arquivos comuns\Borland Shared\BDE Voce tem que verificar se o caminho é o mesmo definido em seu programa abraço

Voce pode usar um componente para isto http://www.inf.ufsc.br/~prass/vcl/multimidia/zoomler.zip abraço

é possivel , mas voce deve pesquisar no forum sobre quick report abraço

OK ... então no DBMemo defina as propriedades DataSource e DataFiled na propriedade ScrollBars define como ssVertical quando voce clicar no botão NOVA OBSERVAÇÃO (já com o cliente escolhido) faça o seguinte: exemplo: Imagine que este é o seu botão NOVA OBSERVAÇÃO procedure TForm1.Button1Click(Sender: TObject); VAR Line : integer; begin With DBMemo1 do begin for line := 0 to DBMemo1.Lines.Count do SelStart := Perform(EM_LINEINDEX, Line, 0); end; DBMemo1.Lines.Append('Nova Observação'); DBMemo1.SetFocus; end; O cursor irá parar após a ulima linha existente no DBMemo e então voce poderá entrar com a nova observação modifique o código para seu uso abraço

Então por favor se expresse melhor .... " quero gravar uma nova informação no DBMemo , quero tambem preservar as informações anteriores , mas quero mostrar a atual na tela" seria isto ? se for .. voce deve usar DBMemo1.append('Nova Observação') ... o append fara com que a nova informação vá para o final do ultimo registro do DBMemo. Mas se quiser mostrar esse ultima informação como sendo a atual , voce deve rolar as linhas de texto ate chegar nesta ultima ( voce sabe como fazer ? ) abraço

já que voce não quer preservar as informações anteriores, basta colocar este comando ao achar o cliente e clicar em alterar. DBMemo1.Clear; Isto fará com que as informações anteriores sejam apagadas, ai tudo o que voce digitar no DBMemo ficará como nova informação abraço

Neste caso, voce deve pesquisar pelo codigo do fulano .... encontrado, voce traz os dados dele para a tela do seu form Cadastro. Então voce terá somente que editar este registro e através do seu DBMemo ( que deverá estar linkado a sua tabela através das propriedade DataSource e DataField ) adicionar "as coisas" ou os dados que quiser e depois salvar o registro. Isto não mudará nada no campo autoincremento abraço

tenho fulano cadastrado com o código 5. quando clico em NOVO eu tenho que incluir OUTRO cliente com o MESMO nome para adicionar algo sobre ele. pelo que entendi voce já tem cadastrado o fulano .. e se ainda não tem, não entendi o seu questionamento: estou querendo adicionar informações sobre determinado cliente, sem mudar o código (autoincrement) dele. abraço

ao fazer isto, voce está produzindo eletrecidade estática dentro do monitor .. a poeira age da mesma forma que pedacinhos de papel quando voce esfrega um pente no cabelo e aproxima deles ... eles mudam de posição ... o mesmo acontece com a poeira, mas como disse o MLeandroJr podem ser outras causas abraço

Errado ... O usuário acha o cliente que ele quer adicionar alguma informação, achado este, clica em ALTERAR para adicionar algum comentário , ou simplesmente Edita o registro do arquivo para fazer alguma modificação e depois salva. abraço

Ou muito me engano, mas o caminho está errado Acesse novamente as pastas até chegar ao banco de dados e veja se o caminho que aparece no Endereço é o mesmo que está no Alias abraço

Crie um campo de controle para esta finalidade neste exemplo seria o campo item Venda Nº ------ item ------ Produto 0001------------ 1 ------ AAAA 0001------------ 2 ------ BBBB 0002------------ 1 ------ CCCC 0002------------ 2 ------ DDDD 0002------------ 3 ------ AAAA 0002------------ 4 ------ EEEE 0003------------ 1 ------ FFFF Ao chamar uma das vendas, a sequencia continuará a partir do ultimo item dessa venda abraço

Esse erro não é do outlook .... coloque um componente OLE no form ( Paleta System ) pode deixar ele invisivel Veja se o componente NMHTTP identifica a sua conexão de internet, mesmo sendo através de um servidor, caso não , eu vejo outra solução para voce. abraço

Coloque no envento OnEnter do componente dbDataCadastro.Text := datetostr(now); abraço

Coloque este código no evento OnExit do componente procedure TForm1.DBMemo1Exit(Sender: TObject); begin DBMemo1.Lines.Text := UpperCase(DBMemo1.Lines.Text); end; abraço

1 - O outlook não precisa estar aberto apenas instalado 2 - Use o componente NMHTTP do delphi procedure TFRM_desenho.BitBtn1Click(Sender: TObject); var Outlook: OleVariant; vMailItem: variant; begin if NMHTTP1.FConnected then begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add('e-imal@jccwww.com.br'); // 1o destinatário vMailItem.Subject := 'teste de email'; // assunto vMailItem.Body := 'Este é um teste'; // Corpo do e-mail vMailItem.Attachments.Add('C:\temp\arq.txt'); // arquivo anexado vMailItem.Send; VarClear(Outlook); end else MessageDlg('CONEXÃO INTERNET NÃO DISPONÍVEL! ', mtInformation, [mbOK], 0); end; abraço

Fica dessa maneira procedure TForm1.Button1Click(Sender: TObject); var titulo: string; s : TLabel; Arquivo : TextFile; begin setlength( titulo, 255 ); GetWindowText( GetforegroundWindow, PChar(titulo), 255); s.Caption := titulo; AssignFile(Arquivo, 'C:\Janelas.Txt'); Rewrite(Arquivo); Writeln(Arquivo, trim(s)); CloseFile(Arquivo); end; abraço