Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
 Perfil  Explorar Conteúdo

  • Total de itens

    9.657

  • Registro em

 Tipo de Conteúdo 

Tudo que Jhonas postou

  1. Jhonas
    Algumas dicas que podem ajudar Toca um som ao clicar no "Enviar". <bgsound src="#" id="music" loop="1" autostart="true"> <form action="formulario.php" method="post" onsubmit="return document.all.music.src='nomedosom.wav'"> <input type="text" name="email"> <input type="submit" value="Enviar"> </form> outro exemplo Coloque isso na sua página de prefencia ente os "<heade>...</head>": CODE<header> <script language="JavaScript"> function PlayGo(URL_GO) { var url = "./som_ativa.wav"; var browser = (navigator.userAgent.indexOf("MSIE") != "-1") ? '<bgsound src="'+url+'" loop="1" autostart="true">' : '<embed src="'+url+'" loop="1" hidden="true" autostart="true">'; document.write(browser); // Redireciona depois de um tempo para dar tempo de tocar o som (2 segundos) window.setTimeout("location.href = '" + URL_GO + "';", (2 * 1000)); } </header> <body> <a href="java script:PlayGo('pagina.html');">LINK</a> </body> outro codigo que voce pode tentar http://forum.imasters.uol.com.br/index.php...st&p=612022 http://www.flashmasters.net/index.php?opti...19;sa=showPosts outros recursos http://www.helpmasters.com.br/recursos/codigos.html abraço
  2. Jhonas
    Voce pode começar dando uma olhada neste post ... imprimir usando o QuickReport http://scriptbrasil.com.br/forum/index.php...st&p=106049 abraço
  3. Jhonas
    Voce quando cria uma dll inicialmente ela te da um Aviso importante então voce não pode utilizar string na passagem de parametros e sim Pchar.. desta maneira para o seu codigo funcionar sem erros, voce deve fazer estas modificações: No EXE implementation {$R *.dfm} Function Chave(Senha : Pchar):Pchar; external 'Senha.dll'; procedure TForm1.Button1Click(Sender: TObject); var N, C : String; begin N := Pchar(Edit1.Text); C := Pchar(Chave(Pchar(Edit1.Text))); if N = C then ShowMessage('Serial válido, você acertou!') else ShowMessage('Serial inválido!'); edit1.Clear; edit1.SetFocus; end; Na DLL library Senha; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, [b]pass string information using PChar or ShortString parameters[/b]. } uses SysUtils, Classes; {$R *.RES} function Chave(Senha : Pchar):Pchar; export; begin Senha := 'Delphi'; Chave := Senha; end; exports Chave; begin end. abraço
  4. Jhonas
    For I:=1 To 3 Do Begin soma_md:=0; soma_nt:=0; Write('Digite o nome do:',i,' aluno:');readln(nomes[i]); For j:=1 To 4 Do Begin Write('Sua:',j,' Nota:');Readln(nota[i,j]); soma_nt:= soma_nt + nota[i,j]; end; media[i]:=soma_nt/4; soma_md:=soma_md+media[i]; end; observe que ( soma_md:=0;) esta dentro do for e por este motivo ele sera zerado a cada passagem ( soma_md:=0; ), portanto deverá retira-lo do loop do comando for. soma_md:=0; For I:=1 To 3 Do Begin soma_nt:=0; Write('Digite o nome do:',i,' aluno:');readln(nomes[i]); For j:=1 To 4 Do Begin Write('Sua:',j,' Nota:');Readln(nota[i,j]); soma_nt:= soma_nt + nota[i,j]; end; media[i]:=soma_nt/4; soma_md:=soma_md+media[i]; end; abraço
  5. Jhonas
    Em alguns casos até dá pra fazer isso, mas não seria uma maneira eficiente de se programar. pense se o seu usuario gostaria de ter uma tela carregada ... visualmente ficaria ruim ... quando precisar mostrar para o seu usuario muitas informações, use o PageControl, porque alem de poder dividir estas informações em varias paginas, voce não tera que sobrecarrega-las com muitos componentes, e bastaria o usuário clicar numa das abas para ter a informação que necessita. quando for montar um sistema, seja prático, se coloque no lugar do usuario e veja se (ele usuario) gostaria usar a tela como voce idealizou. abraço
  6. Jhonas
    de uma olhada neste artigo http://www.clubedohardware.com.br/artigos/466 abraço
  7. Jhonas
    faça dessa maneira: coloque um componente memo e um listbox em cima do memo. procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Visible := false; Memo1.Visible := true; end; procedure TForm1.Button2Click(Sender: TObject); begin ListBox1.Visible := true; Memo1.Visible := false; end; abraço
  8. Jhonas
    arquivos .dat - Arquivo de dados. Armazena informações usadas de forma interna por um programa do qual depende. Costuma ser modificado com qualquer editor de texto. se esses arquivos dat contiverem figuras, para poder visualizá-los, clique com o botão direito em cima de um arquivo .dat qualquer e vá em “Abrir com > Escolher programa”. Escolha “Visualizador de imagens e fax do Windows”. se voce não souber qual programa ou função que foi utilizado para gerar este arquivo, não tem como te ajudar. abraço
  9. Jhonas
    procedure TForm1.Button1Click(Sender: TObject); var janela : HWND; begin janela := findwindow(nil,'orkut'); postmessage(janela,WM_close,0,0) end; o nome deve ser identico ao da título da janela senão ela não será localizada. alguma coisa parecida com isto http://forum.imasters.uol.com.br/index.php...st&p=189733 abraço
  10. Jhonas
    Fora o delphi voce pode fazer o download nestes endereços http://superdownloads.uol.com.br/download/...wer-and-editor/ http://www.newfreedownloads.com/find/edit-dbf.html http://www.newfreedownloads.com/find/dbase.html http://www.newfreedownloads.com/find/foxpro.html http://www.newfreedownloads.com/find/clipper.html http://www.newfreedownloads.com/find/dbf-structure.html http://3d2f.com/programs/12-460-dbf-editor-download.shtml abraço
  11. Jhonas
    O TabControl é usado para construir abas isoladas, ou seja, abas não conectadas com páginas. O componente PageControl, ao invés, é usado para construir um fichário completo, onde as páginas são componentes TabSheet. O PageControl é capaz de, sozinho, oferecer uma interface completa do tipo fichário. TabSet (componente Visual) Cria abas de um Notebook para dar aparência de páginas (Propriedades relevantes) Tabs, TabIndex , Align Notebook (Componente Visual) Fornece uma pilha de diversas páginas (Utilizadas em combinação com o componente TabSet) ( Propriedades relevantes ) Pages, PageIndex, ActivePage, Metodo OnClick Tabbed Notebook (Componente Não Visual) Cria um quadro de diálogo com diversas páginas com abas para agrupar informações ( Propriedades relevantes ) ActivePage, Pages, PageIndex. TabFont, TabsPerRow e Metodo: GetIndexForPage e SetTabFocus OBS: Atualmente os componentes TabControl e PageControl da página Win32 da Paleta de componentes substitui com vantagens os componentes TabSet, Notebook e TabbedNotebook exemplos: http://cc.codegear.com/Item/25053 abraço
  12. Jhonas
    Exemplo Ler_Cookie: procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); Var sNome: String; sData: String; begin sNome := Request.CookieFields.Values[ 'c_nome' ]; sData := Request.CookieFields.Values[ 'c_data' ]; // Response.Content := 'Olá ' + sNome + ', este '+ 'Cookie foi gerado em: '+ sData +''; end; http://www.devmedia.com.br/articles/viewcomp.asp?comp=2600 http://www.chmod.com.br/vb/showthread.php?t=6854 http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=819 gravando e lendo cookies https://www.scriptbrasil.com.br/script/javascript/cookie.zip abraço
  13. Jhonas
    Oi Renato ... dei uma olhada no seu projeto, percebi que atraves da dll voce cria a chamada para o form filho... percebi tambem que voce consegue criar o form filho mas não consegue mover o foco de um campo para outro nem com o enter e nem com o tab. voce precisaria usar a unit QForm para que isto pudesse ocorrer, entretando quando voce cria o ponteiro para a aplicação que cria o form filho, voce mata este processo, e o cursor só move se voce clicar com o mouse. se voce mudar a propriedade formstyle para fsNormal no formulario TESTE voce vai perceber que o enter e o tab funcionam normalmente, no entanto, o form filho sobrepoe o form Principal. Solução: não criar form filhos atraves de dll, ou procurar um maneira da unit Qform não entrar em conflito com a dll gerando exceção. (não pode criar objeto de aplicação em um objeto compartilhado ou biblioteca); abraço
  14. Jhonas
    quando voce dá o preview do report nesses micros tambem não aparece nada ? ou é so quando voce manda imprimir ? qual a sua versão do delphi e qual o banco de dados ? abraço
  15. Jhonas
    coloque esta parte do codigo para poder te ajudar abraço
  16. Jhonas
    existe sim... é só modificar o codigo desta maneira procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var i: SmallInt; begin if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end; end; abraço
  17. Jhonas

    Barra de Progresso

    uma questão respondeu Jhonas em Delphi, Kylix

    se voce começou ontem no delphi , que tal aprender o abc o delphi desde o começo .... neste endereço voce vai encontrar varias apostilas de delphi ( do basico ao avançado ) http://www.apostilando.com/sessao.php?cod=13 biblia do delphi http://scriptbrasil.com.br/forum/index.php...st&p=210072 procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Gauge1.MaxValue := 20000; for i := 1 to 20000 do Gauge1.Progress := i; end; quando voce gerar o programa executavel o delphi criará um icone padrão para esse programa, que depois voce poderá criar um link para ele no desktop. OBS: leia as apostilas para um melhor entendimento sobre a linguagem delphi, antes de sair se aventurando em seus programas. abraço
  18. Jhonas
    a solução mais simples e definitiva é voce acrescentar este campo (Classificação) na sua tabela e definir ela como integer e autoincremento ( supondo que seu banco de dados seja Interbase ) . abraço
  19. Jhonas

    Capacitor Na Fonte

    uma questão respondeu Jhonas em Hardware

    colega não é bem assim, pode ser muito perigoso ... a voltagem escrita no corpo do capacitor indica a voltagem maxima permitida para o dielétrico, por exemplo se voce ligar um capacitor de 1000 mf x 30v em uma corrente continua de 60 v o capacitor irá explodir podendo ferir as mãos ou os olhos. o fato do capacitor estufar indica que a voltagem do mesmo não foi corretamente dimensionado para o circuito Uma explicação mais correta seria: para mais informações sobre o assunto veja: http://pt.wikipedia.org/wiki/Capacitor abraço
  20. Jhonas
    complementando o que o Micheus já expôs.... No WinXP, você precisa alterar o Registro do Windows. * Para o usuário atual, use a chave HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon * Para todos os usuários, use a chave HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon Nos dois casos, no valor "Shell" informe o nome do seu executável, incluindo o caminho completo para ele. exemplo: Shell=C:\Teste\Meuprog.exe como dar exclusividade para o programa, olhe neste post http://scriptbrasil.com.br/forum/index.php...st&p=110923 abraço
  21. Jhonas
    Que eu saiba não é possivel inserir uma imagem na coluna de titulo do DBGrid mas sei que os componentes do InfoPower e outros que voce encontra na internet conseguem caso voce queira o infopower http://www3.delphifontes.com.br/downloads/...er_v2000_D4.zip http://www3.delphifontes.com.br/downloads/...er_v2000_D5.zip http://www.woll2woll.com/downloadinfo.html abraço
  22. Jhonas
    no forum já existe dúvidas como a sua já respondidas, um exemplo neste post http://scriptbrasil.com.br/forum/index.php...st&p=471362 abraço
  23. Jhonas
    voce estava no caminho certo, só faltou um pouco de experiencia procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption = 'Conectar' then begin Button1.Caption := 'Desconectado'; exit; end; if Button1.Caption = 'Desconectado' then begin Button1.Caption := 'Conectar'; exit; end; end; OBS: Coloque na propriedade Caption do Button, inicialmente como 'Conectar' faça dessa maneira: var Form1: TForm1; var cont : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin cont := cont + 1; edit1.text := inttostr(cont); end; abraço
  24. Jhonas
    você pode criar uma rotina para trocar esta barra por branco ou outro caracter e armazenar no banco, e quando você for utilizar trocar o branco por barra novamente. exemplo: procedure TForm1.Button1Click(Sender: TObject); var path : string; begin path:= 'c:/imagens/jpg/teste.jpg'; while Pos('/', path) > 0 do path[Pos('/', path)] := ' '; edit1.text := path; // o resultado será 'c: imagens jpg teste.jpg' while Pos(' ', path) > 0 do path[Pos(' ', path)] := '/'; edit2.text := path; // o resultado será 'c:/imagens/jpg/teste.jpg' end; abraço
  25. Jhonas
    colega, qual é o seu nível de conhecimento em delphi ? se for iniciante, neste endereço voce vai encontrar varias apostilas de delphi ( do basico ao avançado ) http://www.apostilando.com/sessao.php?cod=13 http://scriptbrasil.com.br/forum/index.php...st&p=210072 abraço
×
×
  • Criar Novo...