Tiago_Costa

Bom, estou usando dois link, os quais utilizam onclick, para chamar suas respectivas funções, só que ao clicar no botão "Cliente" antes do botão "Fornecedor", o Botão Fornecedor não funciona,apesar de conseguir ver com alert, que está entrando. apenas quando é executado novamente ele volta a funcionar. não sei se há alguma sujeira no código,pois ele funciona clico nele antes do Cliente. se puderem me ajudar. div dos Botões <div id="Cliente" style="display:Block; float:left;position: relative"><a href='javascript:void(0)' onclick='Menuf1();' id="BotonMenu1" class="easyui-linkbutton" data-options="iconCls:'icon-large-gerarpedidos',size:'large',iconAlign:'top'">Clientes</a></div> <div id="voltaCliente" style="display:none;float:left;position: relative"><a href='javascript:void(0)' onclick='Menuf1();' id="BotonMenu1v" class="easyui-linkbutton" data-options="iconCls:'icon-large-gerarpedidos',size:'large',iconAlign:'top'">Voltar</a></div> <div id="Fornecedores" style="display:Block;float:left;position: relative"><a href='javascript:void(0)' onclick='Menuf2();' id="BotonMenu2" class="easyui-linkbutton" data-options="iconCls:'icon-large-gerarpedidos',size:'large',iconAlign:'top'">Fornecedores</a></div> <div id="voltaFornecedores" style="display:none;float:left;position: relative"><a href='javascript:void(0)' onclick='Menuf2();' id="BotonMenu2v" class="easyui-linkbutton" data-options="iconCls:'icon-large-gerarpedidos',size:'large',iconAlign:'top'">Voltar</a></div> Função <script type='text/javascript'> var mov; var xpos=0; function Menuf1() { if (mov==2) { mov=-2} else {mov=2}; document.getElementById("Menu1").style.top=parseInt(document.getElementById("BotonMenu1").style.top)+15+"px"; document.getElementById("Menu1").style.visibility="visible"; document.getElementById("Cliente").style.display="none"; document.getElementById("voltaCliente").style.display="block"; document.getElementById("Fornecedores").style.display="none"; document.getElementById("voltaFornecedores").style.display="none"; document.getElementById("Menusair").style.display="none"; document.getElementById("MenuPrincipal").style.width="34%"; MoverMenu1(); } function MoverMenu1(){ xpos=xpos+12*mov; if(xpos <-800) { xpos=-800; document.getElementById("Cliente").style.display="Block"; document.getElementById("voltaCliente").style.display="none"; document.getElementById("Fornecedores").style.display="Block"; document.getElementById("voltaFornecedores").style.display="none"; document.getElementById("Menusair").style.display="Block"; document.getElementById("MenuPrincipal").style.width="64%"; }; if(xpos > 0) {xpos=0;}; document.getElementById("Menu1").style.right=xpos+"px"; if (xpos <=-800 || xpos >=0) {window.clearTimeout() } else {window.setTimeout("MoverMenu1();",15);} } var xpos=-500; function Menuf2() { if (mov==2) {mov=-2} else {mov=2}; document.getElementById("Menu2").style.top=parseInt(document.getElementById("BotonMenu2").style.top)+15+"px"; document.getElementById("Menu2").style.visibility="visible"; document.getElementById("Cliente").style.display="none"; document.getElementById("voltaCliente").style.display="none"; document.getElementById("Fornecedores").style.display="none"; document.getElementById("voltaFornecedores").style.display="block"; document.getElementById("Menusair").style.display="none"; MoverMenu2(); } function MoverMenu2(){ xpos=xpos+8*mov; if(xpos <-500) { xpos=-500; document.getElementById("Cliente").style.display="block"; document.getElementById("voltaCliente").style.display="none"; document.getElementById("Fornecedores").style.display="block"; document.getElementById("voltaFornecedores").style.display="none"; document.getElementById("Menusair").style.display="block"; }; if(xpos > 0) {xpos=0;}; document.getElementById("Menu2").style.right=xpos+"px"; if (xpos <=-500 || xpos >=0) {window.clearTimeout() } else {window.setTimeout("MoverMenu2();",15);} } </script>

oi obrigado mas ainda aparece erros que me apontam na linha do IF nessa parte do codigo

Oi pessoal estou começando aprender a mexer no delphi, só que pelo curso que estou fazendo esta me dando erro ao compilar o projeto, se puderem me ajudar agradeço! unit Clientes; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, Mask, DBTables, ComCtrls, Buttons; type TFormClientes = class(TForm) PanelBotoes: TPanel; ScrollBoxDados: TScrollBox; TableClientes: TTable; TableClientesCodigo: TAutoIncField; TableClientesRazaoSocial: TStringField; TableClientesFantasia: TStringField; TableClientesTipo: TStringField; TableClientesCGC_CPF: TStringField; TableClientesInsc_RG: TStringField; TableClientesEndereco: TStringField; TableClientesBairro: TStringField; TableClientesCidade: TStringField; TableClientesUF: TStringField; TableClientesCEP: TStringField; TableClientesTelefone: TStringField; TableClientesFax: TStringField; TableClientesEMail: TStringField; TableClientesHomePage: TStringField; TableClientesObs: TBlobField; TableClientesCadastro: TDateField; TableClientesAtivo: TBooleanField; Label1: TLabel; DBEditCodigo: TDBEdit; DataSourceClientes: TDataSource; LabelRazaoSocial: TLabel; DBEditRazaoSocial: TDBEdit; LabelFantasia: TLabel; DBEditFantasia: TDBEdit; DBRadioGroupTipo: TDBRadioGroup; Label4: TLabel; DBEditCGC_CPF: TDBEdit; Label5: TLabel; DBEditInsc_RG: TDBEdit; Label6: TLabel; DBEditEndereco: TDBEdit; Label7: TLabel; DBEditBairro: TDBEdit; Label8: TLabel; DBEditCidade: TDBEdit; Label9: TLabel; DBEditUF: TDBEdit; Label10: TLabel; DBEditCEP: TDBEdit; Label11: TLabel; DBEditTelefone: TDBEdit; Label12: TLabel; DBEditFax: TDBEdit; Label13: TLabel; DBEditEMail: TDBEdit; Label14: TLabel; DBEditHomePage: TDBEdit; Label15: TLabel; DBRichEditObs: TDBRichEdit; Label16: TLabel; DBEditCadastro: TDBEdit; DBCheckBoxAtivo: TDBCheckBox; DBNavigatorClientes: TDBNavigator; BitBtnFechar: TBitBtn; BitBtnProcurar: TBitBtn; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TableClientesNewRecord(DataSet: TDataSet); procedure TableClientesBeforeInsert(DataSet: TDataSet); procedure TableClientesBeforeEdit(DataSet: TDataSet); procedure TableClientesBeforeDelete(DataSet: TDataSet); procedure TableClientesBeforePost(DataSet: TDataSet); procedure DBRadioGroupTipoClick(Sender: TObject); procedure TableClientesAfterScroll(DataSet: TDataSet); procedure BitBtnProcurarClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var FormClientes: TFormClientes; implementation uses Principal; {$R *.dfm} procedure TFormClientes.FormCreate(Sender: TObject); begin TableClientes.Open; end; procedure TFormClientes.FormDestroy(Sender: TObject); begin TableClientes.Close; end; procedure TFormClientes.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; //Remove o Form da Memoria FormClientes:=NIL; //informa que foi destruido(não Criado) end; procedure TFormClientes.TableClientesNewRecord(DataSet: TDataSet); begin TableClientesCadastro.AsDateTime:=Date; //atribui a data atual TableClientesAtivo.AsBoolean:=True; //cliente ativo end; procedure TFormClientes.TableClientesBeforeInsert(DataSet: TDataSet); begin DBEditRazaoSocial.SetFocus; //posiciona o cursor neste controle end; procedure TFormClientes.TableClientesBeforeEdit(DataSet: TDataSet); begin DBEditRazaoSocial.SetFocus; //posiciona o cursor neste controle end; procedure TFormClientes.TableClientesBeforeDelete(DataSet: TDataSet); begin if Application.MessageBox('Deseja excluir o registro atual?','Comfirme',MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2)= IDNO then Abort; //interrompe e não exclui o registro end; procedure TFormClientes.TableClientesBeforePost(DataSet: TDataSet); If DBEditRazaoSocial.Text = '' then //nada foi digitado begin ShowMessage('Digite a Razão Social/Nome'); DBEditRazaoSocial.SetFocus; //posiciona o cursor Abort; //não grava e continua editando end; procedure TFormClientes.DBRadioGroupTipoClick(Sender: TObject); If DBRadioGroupTipo.ItemIndex:= 0 then //pessoa fisica begin LabelRazaoSocial.Caption:='Nome'; LabelFantasia.Caption:='Apelido'; TableClientesCGC_CPF.EditMask:='999\.999\.999\-99;0;_'; end else //pessoa Juridica begin LabelRazaoSocial.Caption:='Razao Social'; LabelFantasia.Caption:='Fantasia'; TableClientesCGC_CPF.EditMask:='99\.999\.999\/9999\-99;0;_'; end; procedure TFormClientes.TableClientesAfterScroll(DataSet: TDataSet); if TableClientesTipo.AsString = 'F' then //pessoa fisica begin LabelRazaoSocial.Caption:='Nome'; LabelFantasia.Caption:='Apelido'; TableClientesCGC_CPF.EditMask:='999\.999\.999\-99;0;_'; end else //pessoa juridica begin LabelRazaoSocial.Caption:='Razao Social'; LabelFantasia.Caption:='Fantasia'; TableClientesCGC_CPF.EditMask:='99\.999\.999\/9999\-99;0;_'; end; procedure TFormClientes.BitBtnProcurarClick(Sender: TObject); var Nome: String; begin Nome:=''; //inicia definindo uma string vazia if InputQuery('Procurar','Razao Social/Nome',Nome)then if not TableClientes.Locate('RazaoSocial',Nome,[IoCaseInsensitive, IoPartialKey]) then ShowMessage('Razao Social/Nome não encontrado'); end; end. [Error] Clientes.pas(138): Declaration expected but 'IF' found [Error] Clientes.pas(146): Declaration expected but 'IF' found [Error] Clientes.pas(152): ';' expected but 'ELSE' found [Error] Clientes.pas(154): Undeclared identifier: 'LabelRazaoSocial' [Error] Clientes.pas(154): Missing operator or semicolon [Error] Clientes.pas(155): Undeclared identifier: 'LabelFantasia'