DELPHI-Man32

QUAL A CAPACIDADE DO SEU HD? dependendo disso, faça mais uma partição e use a que está em boas condições: você pode instalar o win98Se(215 MB no máximo só o necessário). não se esqueça de formatar a partição antes da instalção! VAGNER FRANCO

TENTE: Exibir -> Tamanho do texto -> Média; VAGNER FRANCO

PEGUE OS CD'S DA PLACA; entre no painel de controle depois em sistema; escolha a opção: Gerenciador de dispositivos: verifique na lista se tem algum dispositivo com um ícone de uma Interrogação(em amarel0) Tipo: (?) -> Dispositivo desconhecido! coloque o cd no drive, clique no dispositivo e depois em propriedades, depois em instalar driver, deixe as opções padrões e coloque para procurar no CD-ROM, depois da instalção reinicie o computador. para instalção do drive de vídeo, no gerenciador abra o ítem: Adaptadores de vídeo; deve tá lá - adapatador de video padão..... dê um clique duplo e depois em atualizar driver, faça o mesmo processo de antes.... e renicie o computador. se ele não voltar já configiurado em 800x600, entre nas propriedades de vídeo e na guia configurações, altera para High color 16bits/800x600. ESPERO QUE POSSA AJUDAR! VAGNER FRANCO.

Caro amigo, se você estiver instalando o Win98SE de um CD, a primeira coisa e definir o Boot para CD, no SETUP. Assim: 1st Boot Device : CD-ROM (Muitas placas é assim). salve e reinicie o pc, já com o CD do Win98 no drive. Agora ele vai verificar se no cd tem os arquivos de sistemas necessários para iniciar o computador no prompt do DOS. depois e quele achar os arquivos, vai entrar numa tela com duas opçoes; escolha: Inicicar do CDROM; ele irá carregar o sistema e no final irá mostrar a letra que foi atribuída ao drive de CDROM(na maioria das vezes é D:). entre no CDROM e digite: instalar /is dê enter; depois da instalção ele reiniciará, quando aparecer a tela das duas opções você já pode escolher iniciar pelo disco rígido! se deu tudo certo, não dará o erro reportado por você. ATENÇÃO!!!!!!!!!!!!! 1- não se esquece de formatar a partição antes de instalar o windows; 2- não se esquece de cancelar o pedido para fazer um disco de inicialização(já que você tem o cd para isso); 3- Configure corretamente o sistema durante a instalção; 4- entre no SETUP e coloque o boot novamente para: 1st Boot Device : IDE-0; acho que isso já basta para uma instalção correta! tem mais, mas não é preciso, instalar os drivers para os dispositivos não é nenhum bicho de 7 cabeças. VAGNER FRANCO

você quer trocar a imagem definida dentro do DELPHI por outra usando um componente TOpenPictureDialog?

fiz uma animação em flash, e gostaria que ela fosse exibida em tela inteira quando executada! o filme foi feito no tamanho (550x400); tem algum action script para fezer isso, no FLASH 5! até MAIS!

isso, você VAI ACEITAR O DESAFIO? FOU FALAR PARA O ADMIN Q você QUER, CERTO!

veja se pode te ajudar... Validar datas ----------------------------------------- try StrToDate(Edit1.Text); except on EConvertError do ShowMessage ('Data Inválida!'); end; -------------------------------------------- DELPHI-Man32

veja se isso pode te ajudar... Enviar um email smtp.postmessage.toAddress := 'StringList (por ex uma listbox'; smtp.postmessage.FromAdreess := 'ex: meu_email@123.pt'; smtp.userid := 'ex: user@123.pt' smtp.host := 'ex: smtp@123.pt' smtp.postmessage.subject := 'Assunto' smtp.postmessage.body := 'Texto da mensagem (stringlist)' smtp.connect; smtp.sendmail; smtp.disconnect; Contribuição: O Anonymous.nick enviou um complemento explicando melhor o procedimento para enviar um e-mail usando o Delphi. Fazer um aplicativo completo para manipulação de e-mails é um tanto trabalhoso e não é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5 nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns métodos para que a mensagem seja enviada. Vamos para a prática: 1. Coloque um componente TNMSMTP no form. 2. Coloque um botão e no evento OnClick deste botão escreva: procedure TForm1.Button1Click(Sender: TObject); begin { Seu servidor SMTP } NMSMTP1.Host := 'smtp.servidor.com.br'; { Porta SMTP, **NÃO MUDE ISTO** } NMSMTP1.Port := 25; { Nome de login do usuário } NMSMTP1.UserID := 'MeuLogin'; { Conecta ao servidor } NMSMTP1.Connect; { Se ocorrer algum erro durante a conexão com o servidor, avise! } if not NMSMTP1.Connected then raise Exception.Create('Erro de conexão'); with NMSMTP1.PostMessage do begin { Seu e-mail } FromAddress := 'meuemail@meuserver.com.br'; { Seu nome } FromName := 'Meu Nome'; { E-mail do destinatário } ToAddress.Clear; ToAddress.Add('destinatario@servidor.com.br'); { Assunto da mensagem } Subject := 'Assunto da mensagem'; { Corpo da mensagem } Body.Clear; Body.Add('Primeira linha da mensagem'); Body.Add('Segunda linha da mensagem'); Body.Add(''); { Linha em branco } Body.Add('Última linha da mensagem'); { Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) } Attachments.Clear; { Endereço do anexo } Attachments.Add('c:\diretorio\arquivo.ext'); end; { Manda o e-mail } NMSMTP1.SendMail; { Disconecta do servidor } NMSMTP1.Disconnect; end; Pronto! É só fazer as adaptações necessárias e você terá envio de e-mails em sua aplicação. Observações: Para enviar o mesmo e-mail para vários destinatário de uma só vez basta adicionar os endereços de e-mails de todos os destinatários em NMSMTP1.PostMessage.ToAddress. DELPHI-Man32...

tópico fechado por DELPHI-Man32

cara, realmente não entendi o q você quiz dizer! mas se você quer q aparece um txt na barra de statua é só escrever... StatusBar1.Panels[0].Text :='Enviando mensagem...'; se você tiver mais de um painel na Barra é trocar o 0 pelo nº do panel.

Arlon, faça o melhor q você puder cara! é isso ai sei q você vai desempenhar um bom papel! estamos sempre aqui para te ajudar! toda a comunidade vai estar com vc, é só manter a casa em ordem! falowss,..... abraços e boa sorte.. você é minha indicação! VAGNER FRANCO(DELPHI-Man32)....

valeu pessoal, quero dizer aos manos q não tenham medo dessa tal MODERAÇÃO, você só tem a ganhar puro conhecimento, foi assim comigo, fiquei muito surpreso e alegre quando o nosso amigo 'bolomaster' me indicou! valeu muito, se eu pudesse ficaria por muito tempo, mas não tem como... vc's podem ver, quase não acesso + o forum, não tenho + tempo! mas também sempre dou 1 olhadinha certo... muito obrigado a todos e muita sorte ao novo MODERADOR! quem sabe um dia posso voltar a moderar.... não é?? lembrem-se: "O único lugar onde sucesso vem antes de trabalho é no dicionário!" abraços a todos da comunidade... VAGNER FRANCO(DELPHI-Man32)

kros amigos... nos ultimos dias quase não tenho visitado o forum! muito serviços e problemas também, então estou colocando a disposição a minha MODERAÇÃO! os candidatos favor postarem aqui! ae^ a galera da adim, quem manda! falowss.. mais também vou estar visitando SEMPRE que puder.. abraços a todos, VAGNER FRANCO

você pode também usar um TGauge assim begin Gauge1.Progress := Gauge1.Progress + 1; if Gauge1.Progress = 100 then begin //coloque aqui a ação.... end; end;

cara! falowsss, tenho certeza q estará sempre por aqui! ajudando todos nós! oh! se você puder mandar aquela bendita cópia do delphi 7, vou te agradecer muito estou esperando! certo! comprei um novo modem, estava off-line por alguns dias! certo! amigão! abraços, VAGNER FRANCO(DELPHI-Man32).

var fmlogon: Tfmlogon; iOK : integer; implementation uses main; {$R *.DFM} procedure Tfmlogon.BitBtn1Click(Sender: TObject); begin if Table1.Locate('Usuario;Senha', VarArrayOf([ed_user.Text,ed_pass.Text]),[]) Then begin iOK := 625; Close; end else begin Beep; Panel1.Caption:='Os dados digitados são inválidos!'; ed_user.Setfocus; end; end; procedure Tfmlogon.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if iOK <> 625 then Canclose := False; end;

coloque a tbl em modo de edição e joga o foco no DBEdit do estoque; no onclick do btn... Table1.Edit; DBEditEstoque.Setfocus; edita o campo e Grava as alterações! ah! pra chamar o form usa o seguinte codigo, assim você tira ele loga da memoria! ai os dados são gravados na tbl com mais segurança! FormXX := TFormXX.create ( application ); try FormXX.ShowModal finally FormXX.Release; FormXX := nil; end;

você ira usar em uma query? seria isso? Query1.Locate('campo onde ira porcurar','Texto a buscar',[loPartialKey,loCaseInsensitive]); não sei se é isso que quer!...

Quando você usa Form.Free ou Form.Destroy, você está imediatamento solicitando a destruição do formulário. Com Form.Release, todas as mensagens pendentes no pool do formulário são postadas - exemplo: redesenho do formulário, movimento do mouse, pressionamento de tecla,... você pode tirar o form de cadastro da memoria! use assim: FormXX := TFormXX.create ( application ); try FormXX.ShowModal finally FormXX.Release; FormXX := nil; end; ------------------------ depois fazer uma pesquisa incremental em outro form... o registro vai sendo localizado no DBGrid. Como fazer? - Crie um índice na tabela com campo a ser usado na pesquisa. Coloque no Form: - Um DataSource - Um Table - Um DBGrid - Um Edit Altere as seguintes propriedades: - DataSource1.DataSet = Table1 - Table1.DatabaseName = 'NomeDoAlias' - Table1.TableName = 'NomeDaTabela' - Table1.IndexFieldNames = 'NomeDoCampo' - Table1.Active = true - DBGrid1.DataSource = DataSource1 Escreva a instrução abaixo no evento OnChange do Edit: Table1.FindNearest([Edit1.Text]); Observações Este exemplo considera que o campo seja tipo string. Para outros tipos de campos pode ocorrer erro dependendo dos valores digitados no Edit1. abraços, VAGNER

FECHANDO O tópico! :-)

kro amigo... você quer cadastrar em uma tabela é muito simples... basta usar o comando "Append" no evento onclick de um botao para inserir um novo registro e usar o comando "Post" para gravar! também num onclick! para verificar os dados registrados na tbl e verificar para efetuar o login, é só criar uma rotina para que o programa verifique os dados digitados com os dados da tbl! vou ver um exemplo pra você... meu email: design-vagner@bol.com.br abraços, VAGNER..

PO^ GALERA VAMO CONTRIBUIR COM O AMIGO BOLOMASTER AEH^... COLOQUEM OS DADOS!!!!

acho q foi isso q passei pra você por MSN! não é?! VAGNER

program Project1; uses Forms, Controls, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.RES} var F: TForm2; begin F := TForm2.Create(Application); try if F.ShowModal = mrOK then begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; finally F.Free; end; end. O Form2 do exemplo é o Form de LogOn. Este deverá ser preparado para que se possa escolher o usuário, digitar a senha, etc.