Jhonas

Cara ... eu so te dei um exemplo... no seu codigo voce vai procurar onde voce ativa a skin e aquele codigo que deixa a janela invisivel tera que ser colocado antes da ativação da skin ... deu pra entender ??? este codigo que te passei como exemplo é apenas parte do meu codigo que eu uso ... so o coloquei como referencia para voce ... valeu ?

Tem como fazer isto sim, e uma das maneiras é ... se voce já definiu um Alias em tempo de projeto, basta colocar este codigo na primeira janela do seu programa no evento on create do form procedure TForm1.FormCreate(Sender: TObject); begin { se o alias não existir... } if not Session.IsAlias('MEU_ALIAS') then // colocar o alias que voce criou begin { Adiciona o alias } Session.AddStandardAlias('MEU_ALIAS', 'C:\TESTE\ARQUIVOS', 'PARADOX'); // caminho do banco de dados { Salva o arquivo de configuração do BDE } Session.SaveConfigFile; end; end; A outra maneira é extraindo o caminho onde o programa estiver sendo executado: procedure TForm1.FormCreate(Sender: TObject); var S: string; begin S := extractFilepath(application.exename)+'ARQUIVOS\'; // se existir um subdiretorio arquivos onde esta rodando o programa showmessage(s); query1.DatabaseName := s; // caminho onde esta os arquivos end; OBS: como as instruções SQL já estão definidas com os respectivos arquivos, ao ativar as querys o caminho passado para o query1.DatabaseName fara o resto quando as querys forem ativadas; Como voce quer executavel e arquivos na mesma pasta é só trocar o comando S := extractFilepath(application.exename);

Tudo bem ... eu tambem uso Skin na janela de apresentação e ativo esta skin no on create do form, desta maneira voce deve jogar o codigo antes da ativação da skin exemplo: procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style := bsClear; // aqui voce coloca o codigo da janela Form1.BorderStyle := bsNone ss := Copy(CaminhoDasSkins,1,Pos('*.skn',CaminhoDasSkins)-2); SkinData1.Active := false; SkinData1.SkinFile := ss + 'iTunes.skn'; if not SkinData1.Active Then SkinData1.Active := True; // aqui voce ativa a skin end;

Ok ... se não funcionou é porque algum arquivo de configuração ou dll foi removida... o teste era justamente para saber isto .... tenho alguns codigos de envio de email, vou procurar um bom para voce depois eu posto.

fiz o teste no delphi 7 e esta funcionando perfeitamente ... veja se o seu codigo esta como este: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style := bsClear; Form1.BorderStyle := bsNone end; end.

Como voce não falou qual versão do delphi esta usando, estou supondo que voce esta com o delphi 5, e este codigo funciona perfeitamente aqui, fiz um teste e ele mostra somente a imagem na tela, como voce queria. tenta o seguinte: no form create digite apenas Form1 e coloque um ponto no final e espere aparecer o menu de opções, ou então digite Ctrl + Enter para aparecer o menu. Neste menu veja se encontra a opção Brush, selecione e tecle . (ponto ) no final e veja novamente no menu e selecione Style depois é so colocar := bsClear; se aparecer assim esta correto.

Use o componente ADOConnection1 da paleta ADO do delphi e defina na propriedade ConnectionString como Provider=MSDAORA.1

Tudo bem .... agora deu pra entender coloque este codigo no oncreate do form procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style := bsClear; Form1.BorderStyle := bsNone end;

então amigo não entendi o que voce quer .... o quadrado do form não aparece e não tem como voce jogar a figura sem uma base... a não ser que voce esteja querendo um form transparente, é isso ???

Ado.recordset.update Run-time Error '-2147217887' SINTOMAS Quando você usa o metodo Execute de um ActiveX Dados Objetos (ADO) com uma opção de adExecuteStream, se o CommandText do objeto que seleciona um Servidor SQL e o campo texto for mais longo que 1.024 caracteres, você recebe a mensagem de erro seguinte: Run-time Error ' -2147217887(80040e21): Nenhuma descrição de erro provida Nenhum erro é devolvido se houver 1.024 caracteres ou menos no campo de Texto. Em adição, nenhum erro é devolvido se o tipo de campo for NText (que é testado até 1.025.000 caracteres). CAUSA Por padrão, o TEXTSIZE no SQL Server é fixado em 1.024 caracteres para o Fluxo de Produção. RESOLUÇÃO Há dois modos para solucionar este problema: Use o objeto de Conexão ActiveConnection para fixar o TEXTSIZE a um valor que é alto bastante para acomodar o campo de Texto longo. Você tem que fixar o TEXTSIZE antes de chamar o método Execute. Use num SQL o campo NText em vez de um campo de Texto. MAIS INFORMAÇÃO No Servidor de SQL especifique SET TEXTSIZE com comprimento máximo, em bytes, de dados de Texto numa sentença SELECT

Erro Enquanto Tentando enviar e-mail if (dwRet <> SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK); end else begin FillChar(MapiMessage, SizeOf(MapiMessage), #0); Attachments := nil; FillChar(Receip, SizeOf(Receip), #0); . . . Aparentemente foi falha ao tentar efetuar o LOGON com o servidor de email na clausula uses coloque shellapi e tente este codigo num botao e veja se funciona (somente para teste ) ShellExecute(Handle, 'open', pEMail, nil, nil, SW_SHOW); defina uma variavel const pEMail = 'mailto:email_da_pessoa@bol.com.br';

Se voce estiver usando Table ou Query e estiver usando a propriedade DataSourde e Dataset do dbcombobox é evidente que na proriedade items não sera armazenado nada, e quando voce usa logradouro.Items.add(aux), apos o comando post o registro fica gravado na tabela e automaticamente fará parte do dbcombobox... e como voce diz realmente não fica armazenado na propriedade Items do DbcomboBox e nem vai ficar a não ser que voce use especificamente esta propriedade. Voce pode estar fazendo confusão com isso.

Mandei um exemplo para voce via email.

Amigo ... faço desta maneira em varios programas como tela de apresentação, desse jeito o quadro do form não aparece e aparece somente a figura ... e para dar um ar mais legal eu uso um form, um panel e um image ... verifique se não fez nada errado ou esqueceu alguma coisa. garanto que isso funciona.

Falou bem ... sempre que se utiliza no dbgrid, o append adiciona um novo registro no final da tabela... acho que no caso dele, como esta usando somente o dbcombo existe essa necessidade, se não o registro vai ser sobreescrito sobre outro.

Posso dar uma ajudinha no ingles?? Se estiver bem no inglês... Q. Por que o botao não trabalha no preview do printersetup quando eu carrego um relatorio salvo (.QRP)? A. Este é de fato uma característica de desígnio. Quando a orientação ou tamanho de papel foram mudados, o resultado era saida pobre para os reports assim esta funcionalidade era afastada da preview padrão. Se você construir um preview padrão, você pode usar o printersetup em relatórios salvos. Exemplo projetos com um preview padrão com esta funcionalidade pode ser carregado da nossa página debaixo do nome de arquivo custprev.zip (QuickReport 2) e QR3CSTD3.ZIP (QuickReport 3) Q. Qual é a diferença entre o QRPrinter global, o preview qrprinter , e o relatório, qrprinter? A. Cada relatório que tem é próprio objeto de QRPrinter. Há um objeto de QRPrinter global que pode ser usado fora do objeto do QuickRep. Cada QRPrinter é um objeto distinto. O objeto de preview QRPrinter é um ponteiro ao QRPrinter do relatório que usa aquela preview. Quando você referência o preview qrprinter , você de fato referencia o objeto qrprinter do relatório que é previsto atualmente.

Erro: Could Not Find Object Não Pode Achar Objeto Este erro acontece quando o componente TQuery ou outro não foi encontrado.... sugestão: delete o componente e coloque ele novamente no form e veja se ele aparece declarado no type.

Legal .. agora entendi o que voce quer .... para o form não aparecer va na propriedade BorderStyle e selecione bsNone, no componente image na propriedade Align voce deve selecionar AllClient .... depois é so redimensionar o form no tamanho que voce quiser ... quando executar vai ficar como voce quer ... Ok?

Micheus ... se voce não fizer desta maneira, ou seja, mandar o ponteiro do registro para o final e adicionar um novo ele vai ficar na posição em que o cursor estiver no dbgrid, supondo que seja um novo item o ideal é manda-lo para o final da lista. quanto ao AUX se voce reparou ele já esta atrelado a um campo que esta definido no dbcombo. Existem outras maneiras de fazer isso... passei a maneira mais simples;

Neste exemplo estou fazendo uma pesquisa pelo numero da ficha do fulano, se for encontrado esta ficha sera apagada. o codigo dentro do if pode ser para outra finalidade. Sintaxe correta : CDS_Cadastro.First; if CDS_Cadastro.Locate('FICHA_NUM',CurrencyEdit1.AsInteger,[loCaseInsensitive, loPartialKey]) then begin CDS_Cadastro.Delete; CDS_Cadastro.ApplyUpdates(-1); end; OBS: no lugar do .... CurrencyEdit1.AsInteger , poderia ser um .... strtoint(Edit1.Text)

Pegue o componente PrinterSetupDialog1 da paleta Dialogs do delphi e coloque num botão no seu form, ele vai habilitar o printer setup procedure TForm1.ConfigurarImpressora1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end;

Mostrei para voce como fazer isso no post anterior mas se é um table que esta usando pode fazer assim: flag:=1; aux:=Dbcombobox.Text; max:=dbcombobox.Items.Count; for i:= 1 to max do begin if dbcombobox.Items.Strings[i] = aux then flag:=0; end; if flag = 1 then begin Table1.last; // vai para o ultimo registro da tabela Table1.append; // adiciona um registro vazio Table1.edit; // edita o registro logradouro.Items.add(aux); Table1.post; // grava o item adicionado no dbcombo end;

Quando voce der select all na figura os icones aparecem para voce selecionar qual deles voce quer...ok ?

Este programa faz parte do proprio windows .... va em iniciar, programas, acessorios e clique em paint

Amigo, um dbcombo não grava dados na sua tabela, esses dados são virtuais até que o programa seja encerrado, ai volta tudo como estava antes. se voce quer que os dados ou itens adicionados no dbcombo sejam gravados voce pode fazer isto .... supondo que voce esteja usando uma query: flag:=1; aux:=Dbcombobox.Text; max:=dbcombobox.Items.Count; for i:= 1 to max do begin if dbcombobox.Items.Strings[i] = aux then flag:=0; end; if flag = 1 then begin query1.last; query1.append; query1.edit; logradouro.Items.add(aux); query1.post; // gravado o item adicionado no dbcombo em um novo registro end; Entretanto vale lembrar que somente um campo esta sendo adicionado e gravado na sua tabela em função do dbcombobox, os demais voce tera que fazer algum tratamento para não ficarem vazios.