McBlade

<input type="button" class="enviar" onclick="window.location.reload();" onkeypress="window.location.reload();" value="Fechar">

Henderson faça as seguintes modificações: Cole o código abaixo antes do if no javascript document.getElementById("mais").style.top = event.x; document.getElementById("mais").style.left = event.y; Remova o texto "left: 400px; top: 400px;" da tag DIV Isso deve resolver... ;)

Essa função eu também gostaria de saber... faz tempo que procuro algo assim...

Sei que não é muito correto "mastigar" e "cuspir" (fui profundo nessa heim?) mas eis ele: <script language="javascript"> var chk = document.getElementById("checkbox"); document.getElementById("text").disabled = !chk.checked; </script> Comigo funciona com IE e FF.... Teste aí... ;)

De nada amiga... Como eu disse... Qualquer dúvida posta aí... :D

Me corrijam se estiver enganado mas eu acredito ser problemas de incompatibilidade... Qual componente você está usando??

Não sei se funciona no Delphi 4 masssss... var fLog: TextFile; begin AssignFile(fLog,'erro.log'); if fileExists('erro.log') then append(fLog) else rewrite(fLog); writeln(fLog,'Nome: João Pé de Feijão'); writeln(fLog,'Fone: 666-6mole-6dura'); writeln(fLog,'Endereço: Estrada Pé de Feijão'); writeln(fLog,'praís: praís do Faz-de-Conta'); flush(fLog); closeFile(fLog); end;

* Declare as Private Procedures procedure AdicionarCheckBoxes; procedure AlinhaCheck; procedure LimpaBuffer; * Coloque um StringGrid na tela com 5 colunas e 1 CheckBox * No FormCreate AdicionarCheckBoxes; //rotina que adiciona os Check CheckBox1Click(nil); *E o resto é procedure TForm1.AdicionarCheckBoxes; var i: Integer; NovoCheckBox: TCheckBox; begin limpaBuffer; //é bom não esquecer de limpar controles não utilizados for i := 1 to StringGrid1.RowCount do begin StringGrid1.Cells[0,i] := IntToStr(i); StringGrid1.Cells[1,i] := IntToStr(i); StringGrid1.Cells[2,i] := DateToStr(Now); StringGrid1.Cells[3,i] := ''; NovoCheckBox := TCheckBox.Create(Application); NovoCheckBox.Width := 0; NovoCheckBox.Visible := false; NovoCheckBox.Caption := 'OK'; NovoCheckBox.Tag := i; NovoCheckBox.OnClick := CheckBox1.OnClick; //Associar um evento OnClick já existente para o Novo CheckBox NovoCheckBox.Parent := Form1; StringGrid1.Objects[4,i] := NovoCheckBox; StringGrid1.RowCount := i; end; AlinhaCheck; // agora vamos alinhar o check na celula end; procedure TForm1.AlinhaCheck; var NovoCheckBox: TCheckBox; Rect: TRect; i: Integer; begin for i := 1 to StringGrid1.RowCount do begin NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox); if NovoCheckBox <> nil then begin Rect := StringGrid1.CellRect(4,i); // aqui descobrimos a posição da celula para utilizarmos no check NovoCheckBox.Left := StringGrid1.Left + Rect.Left+2; NovoCheckBox.Top := StringGrid1.Top + Rect.Top+2; NovoCheckBox.Width := Rect.Right - Rect.Left; NovoCheckBox.Height := Rect.Bottom - Rect.Top; NovoCheckBox.Visible := True; NovoCheckBox.Color := clWindow; end; end; end; procedure TForm1.LimpaBuffer; var NovoCheckBox: TCheckBox; i: Integer; begin for i := 1 to StringGrid1.RowCount do begin NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox); if NovoCheckBox <> nil then // o objeto deve existir para poder ser destruído begin NovoCheckBox.Visible := false; StringGrid1.Objects[4,i] := nil; end; end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if not (gdFixed in State) then AlinhaCheck; end; procedure TForm1.CheckBox1Click(Sender: TObject); var NovoCheckBox: TCheckBox; Rect: TRect; i: Integer; begin for i := 1 to StringGrid1.RowCount do begin NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox); if NovoCheckBox.Checked = True then StringGrid1.Cells[3,i] := 'SIM' else StringGrid1.Cells[3,i] := 'NÃO' end; end; Funciona para Delphi 6 e 7, acho que funciona pro 4... Cá pra nós, num tá na hora de migrar pra um delphi mais novo não???

Em pascal (delphi) para você "repintar" um form use Repaint. Você também tem a opção de usar Refresh mas o Repaint é mais aconselhável. Existe ainda o Application.ProcessMessages, mas este é meio perigoso quando estiver executando uma ação onde um form não puder ser fechado... Para 'chamar' um determinado evento, clique em "Events" no "Object Inspector"...

Amigo tente colocar o CLOSE no evento OnClick de um Button. você verá que o sistema só fechará quando clicar nele. Provavelmente você está usando o Close no OnCreate, OnShow ou OnActivate do form.

OMG, Valeu mesmo!!! :D

Bão galera?? então minha dúvida é o seguinte... Vocês alguma vez na vida devem ter brincado com programas que manipulam os dispositivos MIDI da máquina como o D'Accord. Eu já dei uma olhada nas funções mas não consigo tocar 1 som sequer... Minha idéia era colocar na tela os Instrumentos que o Hardware suporta, escolher 1 e quando o usuário clicasse no botão (ou eu ia fazer no teclado) o programa toca uma nota. Será que é muito difícil? Tentei encontrar o manual da MMSystem.dll no MSDN mas não consegui... :(

Nisso aí você usou o ActionScript que você postou mais em cima né?? Eu queria fazer sem ter que usar código. :unsure: Acho que vou tentar que nem o Brit falou. Criar o a guia dentro do MC e a máscara na layer separada...

100% Banco de dados com certeza. Se não souber utilizar, aqui tem você encontra gente que pode ajudar.

Como eu tiro as variáreis da sessão?? Tipo não passar "" vazio pra elas. Eu queria eliminar da seção mesmo!!! porque uso o isset pra ver se ela existe e não adianta passar "" porque ela continua existindo.

Eu tinha pensado nisso. Mas se eu for pra outra página as variáveis (que são basicamente mesmas) vao continuar lá. Na hora que eu voltar vai carregar os valores antigos de novo. Mas eu também não posso lipá-las na hora que eu carrego por causa do refresh!! nossa to me confundindo!!!

Já tentei de N maneiras!! document.formarec.submit() submit() document.getElementById('formarec').submit()

if (($pagina > $total_de_paginas) || ($pagina < 0)) { echo '<i>O número da página é invalido</i>'; exit; } Ou a $pagina é maior que $total_de_paginas ou $pagina tá vindo menor q 0 Debuga dando um echo $pagina e echo $total_de_paginas pra saber o que tá vindo!!!

Dá o mesmo erro!!!

tenta assim... if($pagina_anterior) { $link_de_navegacao .= " <a href=".'"'."comentario.php?pagina=$pagina_anterior&busca=$SESSION[".'"'."busca".'"'."]".'"'.">«« Anterior</a> "; } for($i = 1; $i <= $total_de_paginas; $i++) { if($i != $pagina) { $link_de_navegacao .= " <a href=".'"'."comentario.php?pagina=$i&busca=$SESSION[".'"'."busca".'"'."]".'"'.">$i</a> "; } else { $link_de_navegacao .= " <b>[$i]</b> "; } }

<input type="button" name="submit" value="Filtrar" class="skin60" onClick="submit()"> O browser diz "O objeto não dá suporte a propriedade ou método" porque??? Detalhe.... To usando php também e 1 botao, button, deve submeter o form pra que eu traga uma pesquisa e o 2 botao, submit, que envia os dados do form.

Pra continuar passando você vai fazer exatamente assim: if($pagina_anterior) { $link_de_navegacao .= " <a href='comentario.php?pagina=$pagina_anterior&busca=$SESSION['busca']'>«« Anterior</a> "; } for($i = 1; $i <= $total_de_paginas; $i++) { if($i != $pagina) { $link_de_navegacao .= " <a href='comentario.php?pagina=$i&busca=$SESSION['busca']'>$i</a> "; } else { $link_de_navegacao .= " <b>[$i]</b> "; } } Aí vai passar para a próxima página com a sua variável de busca. Deve resolver...

Quando tiver dúvidas sobre como usar uma função acesse: www.php.net É em português e ajuda bastante!!

$prj é passada através de um link, numa outra página quando eu listo os projetos do meu site. A paginação ainda não está implementada lá. Se você não colocar a mão na massa e adaptar a minha rotina pra sua página, nós vamos ficar 1 ano aqui e não vamos chegar a lugar algum!!! Faz o seguinte. Me dá a estrutura da tabela que você tem pra fazer a paginação e como vai funcionar o processo que eu vou analisar e te dizer!!

http://scriptbrasil.com.br/forum/index.php?showtopic=74688