Vivendo&Aprendendo

cara uma vez ocorreu isso comigo, mas agora o dificil é saber como eu arrumei, pois eu formatei minha máquina e instalei tudo denovo, agora vai saber se o erro era no delphi ou no ruindows... falou se achar a resposta posta ai... Alexandre

cara não tenho certezxa mas isso ocorre porque a opção DropDownList significa que ele esta limpando toda a lista de items do combo. falou Alexandre

Olá amigão explica melhor o seu problema que ai nós poderemos lhe ajudar Alexandre

Olá amigo O QuickReport você deve ir no menu component e depois em install packages;procure a pasta bin que esta no diretório do delphi e o arquivo chamado dclqrt70 e ai é só confirmar até o final aparecerá uma nova paleta no seu delphi. Já o splah ai vai o código: A melhor maneira de criar um SplashScreen para seu projeto, fácil e rápido! 1º ) Crie um novo projeto no Delphi ; 2º ) O Fom 1 que se abriu , será o formulário principal, salve e crie um novo form, form2; 3º ) Coloque no form2 um Panel , um TTimer, altere o align do Panel para Client; 4º ) O form2 , será no Splash , então nele coloque o essencial que não pode faltar , uma Gauge ou se preferir uma Progress Bar . 5º ) Enfeite como quiser o seu Panel , ou seja , sua splash deixe com um visual profissional! 6º ) No evento OnCreate do form2 , coloque : -------------------------------------------------------------- begin Timer1.enabled:=True; end; -------------------------------------------------------------- 7º ) Agora na propriedade Timer do nosso TTimer mude de 1000 para 100 ; 8º ) No Evento OnTimer do nosso TTimer coloque : -------------------------------------------------------------- begin Gauge1.Progress := Gauge1.Progress+1; if Gauge1.Progress = 100 then begin form1.close; end; end; -------------------------------------------------------------- 9º ) No evento OnCreate do forn1 coloque! form2 := Tform2.Create(Self); form2.Showmodal;

Qual componente você esta usando falou

Amigo Basta você fazer o progr'amador disse, mapeia a unidade que esta a sua aplicação e busca o exe para a área de trabalho que deve funcionar eu já fiz isso e deu certinho.. Alexandre

E se for aplicação MDI? o que fazer Alexandre

Ola Progr'amador Se conseguir esse componente para D7 posta o ink ai pra mim Abs Alexandre

Amigo você deve avaliar a sua aplicação e dar o seu preço; preço pelo seu trabalho, você que deve valorizar o seu trabalho se não ninguém irá fazer isso. Alexandre

o que você esta fazendo que esta dando este erro? Alexandre

falou cara qualquer duvida posta ai Alexandre - Vivendo&Aprendendo

Tenta isso if ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then ShowMessage('Somente números') else ShowMessage('Nome usuário'); cara não testei pois estou sem o delphi mas testa ai qualquer coisa posta ai falou

cara tenta assim entaum Var Virgula : Integer; begin virgula :=0; if (Key=110) or (Key=188) then begin virgula := 1; If Virugla >= 2 Then begin ShowMessage('Virgula Não Pode. HeHeHe!!! '); Edit1.Text := ''; end; end; end; não testei mas tenta ai e posta o resultado falou

cara não testei mas acho que pode tirar isso, estou sem o delphi aki mas vou tentar te dar uma luz sobre a questão das virgulas. Tente colocar uma variavel para receber o numero de virgulas que existem em uma variavel que recebera o valor que esta no edit, você tera que fazer um algoritimo para verificar caracter por caracter e se for igual a uma "," a variavel virgula recebe +1 e quando a varialvel virgula for > 1 ele da uma mensagem ou faz o que você quiser muda esssa virgula por ponto sei la... Deu pra entender qualquer coisa posta ai falou Alexandre

cara Somente numero no Edit procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var cValor : Char; begin if ( Key in ['.',','] ) then begin Key := #44; if Pos(Key,cValor) <> 0 then Begin Beep; Key := #0; End; End; if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then Begin Beep; Key := #0; End; end; Para permitir somente numero no edit é o seguinte: Edit1.text := FormatFloat('0.00',valor); Onde valor é a variavel com o valor correspondente Alexandre

cara no Memo da certo agora tem que testar no DBMEMO: variavel := Perform(EM_LINEINDEX, Linha, 0); falou Alexandre

cara tem esse tb: function GetIP:string; //--> Declare a Winsock na clausula uses da unit var WSAData: TWSAData; HostEnt: PHostEnt; Name:string; begin WSAStartup(2, WSAData); SetLength(Name, 255); Gethostname(PChar(Name), 255); SetLength(Name, StrLen(PChar(Name))); HostEnt := gethostbyname(PChar(Name)); with HostEnt^ do begin Result := Format('%d.%d.%d.%d', [byte(h_addr^[0]),Byte(h_addr^[1]), Byte(h_addr^[2]),Byte(h_addr^[3])]); end; WSACleanup; end; falou

function GetLocalIP : string; type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then Exit; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^ <> nil do begin result:=StrPas(inet_ntoa(pptr^^)); result := StrPas(inet_ntoa(pptr^^)); Inc(I); end; WSACleanup; end; Observações Se o endereço IP for designado pelo servidor, a cada conecção teremos um endereço IP diferente e, obviamente, se não estivermos conectados, não conseguiremos obtê-lo. Esse código obtem o IP da máquina na net. E esse o ip do seu computador na rede: implementation uses Winsock; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var wVersionRequested : WORD; wsaData : TWSAData; begin wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); end; procedure TForm1.FormDestroy(Sender: TObject); begin WSACleanup; end; procedure TForm1.BtnIPClick(Sender: TObject); var p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin GetHostName(@s, 128); p := GetHostByName(@s); Memo1.Lines.Add(p^.h_Name); p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); Memo1.Lines.Add(p2); end; end.

Vlw cara podemos fechar... Como que eu fecho um post??? Alexandre

cara eu não conheço nenhum de vocês ai da sb mas o pouco que conversei com você e li sobre o rolo todo deu para ver que você não teve culpa e até que fim eles se tocaram que você é ótimo nisso e de maneira nehuma poderia ficar fora da equipe de MODERADORES da SB. Estou feliz por você ter voltado. Siga em frente agora, você é um vencedor... Abs de um amigo.... Alexandre - Vivendo&Aprendendo

Vlw Amigão cara Obrigado pela ajuda....... Como adiciona MP? Alexandre

cara deu certo agora era só configurar os espaços das variaveis tamanho, para cada campo do banco que vou utilizar nesse arquivo tenho que criar uma variável ou não? Alexandre

vou te mandar uma mail com a maneira que deve sair esse arquivo txt falou

Sim cara resolvido.... Vlw pela ajuda e sempre que eu precisar eu te procuro hehehehehe falou

Amigo Testei o código e não deu certo ele grava beleza mas não em ordem, ele deixa tudo desorganizado. Será que tem que ir mexendo nas variaveis tamanho até dar certo? Poderia me explicar o código? Alexandre