robinhocne

E como eu faço para que ao sair o cursor de cima ele some ??

Pessoal como eu faço para quando passar com o cursor em cima de um determinado SpeedButton aparecer automaticamento um PopUpMenu....tipo assim... para o SppedButton1 eu tenho o PopUpMenu1 ai ai passar o cursor em cima desse SpeedButton eu quero que aparece o PopUpMenu1 que está linkado no Speed Button 1 e ao passar o mouse em cima do SpeedButton2 abrir o PopUpMenu2...... uma ajuda!!

Estou pegando os dados da Tabela Cidade e deixando numa IbQuery e fazendo um while dessa maneira abaixo: QryCidade.First; while not QryCidade.Eof do begin with QryCOLAS do begin close; sql.Clear; sql.Add('Insert Into Adm_Cad_Cidade ( Codigo, CodUf, Cidade, Cep ) values ( ' + #39 + QryCidade.FieldByName('Cidade_Codigo').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Uf_Codigo').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Cidade_Descricao').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Cidade_Cep').AsString + #39 + ')'); ExecSQL; end; QryCidade.Next; end; QryCidade está conectada numa IbDataBase que é do Banco de dados 1 QryColas está conectada num IBCConnection1 que é do Banco de Dados 2 Consegui resolver..lembrei do StringReplace e ai pesquisei mais na internet para lembrar como funcionava direito...e fiz assim: StringReplace(QryCidade.FieldByName('Cidade_Descricao').AsString, '''','',[rfReplaceAll]) agora importou......valrew pela ajuda Daniel....

uma ajuda por favor!!!

Estou pegando os dados da Tabela Cidade e deixando numa IbQuery e fazendo um while dessa maneira abaixo: QryCidade.First; while not QryCidade.Eof do begin with QryCOLAS do begin close; sql.Clear; sql.Add('Insert Into Adm_Cad_Cidade ( Codigo, CodUf, Cidade, Cep ) values ( ' + #39 + QryCidade.FieldByName('Cidade_Codigo').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Uf_Codigo').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Cidade_Descricao').AsString + #39 + ',' + #39 + QryCidade.FieldByName('Cidade_Cep').AsString + #39 + ')'); ExecSQL; end; QryCidade.Next; end; QryCidade está conectada numa IbDataBase que é do Banco de dados 1 QryColas está conectada num IBCConnection1 que é do Banco de Dados 2

Pessoal estou importando dados de um banco para outro banco de uma determinada tabela. Meu Banco de Dados é Firebird 2.0 no banco 1 tenho a seguinte tabela com os campos *****ESTRUTURA***** CREATE TABLE CIDADE ( CIDADE_CODIGO INTEGER NOT NULL PRIMARY KEY, UF_CODIGO INTEGER NOT NULL REFERENCES UF (UF_CODIGO), CIDADE_DESCRICAO VARCHAR(72) NOT NULL COLLATE PXW_INTL850, CIDADE_CEP VARCHAR(8) NOT NULL COLLATE PXW_INTL850 ); então estou exportando os dados dessa tabela Cidade para o banco 2 tabela ADM_CAD_CIDADE *****ESTRUTURA***** CREATE TABLE ADM_CAD_CIDADE ( CODIGO INTEGER NOT NULL PRIMARY KEY, CODUF INTEGER NOT NULL REFERENCES ADM_CAD_UF (CODIGO), CIDADE VARCHAR(100) NOT NULL, CEP VARCHAR(8) NOT NULL ); quando chega para importar do banco 1 (tabela Cidade) para o Banco 2 (tabela ADM_CAD_CIDADE) ele dá erro numa linha de registro da tabela cidade. tem o campo Cidade_Descricao da tabela Cidade com o seguinte dados : OLHO D'ÁGUA GRANDE quando eu importo para o campo Cidade da tabela ADM_CAD_CIDADE ele dá esse erro abaixo: Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 86 ÁGUA. Creio que seja por causa da ( ' ) aspa, mas nunca tive problema com isso! alguém pode me ajudar ?????

Bom dia, segue o Link desse forum com a mesma duvida. http://scriptbrasil.com.br/forum/index.php?showtopic=561 winexec('c:\windows\calc.exe',sw_shownormal);

Opa isso mesmo, obrigado, é da proxima vez vou pensar um pouco mais....rsrrs mas obrigado!

Não resolve pois dois fatos: Primeiro e principal o porque do TJvTransparentButton é por ele ser um botão transparente. Segundo é que o TJvBitBtn ele deixa a imagem do lado do caption, mas a imagem e caption fica no meio do botão, e todos os botões tem tamanhos iguais de width := 120.

Deu certinho isso mesmo que eu precisava, mas agora preciso tbém copiar o que está antes da virgula no caso o endereço.

Pessoal estou criando TJvTransparentButton em tempo de execução e propriedade TextAlign eu deixo como ttaLeft, coloquei uma imagem no blotão e todos os botões é de um unico tamanho, exemplo: width = 100; e em cada botão é um cada botão é um caption diferente mas o problema é que os captions deles não fica alinhado, não fica do lado da imagem, como eu faço para deixar o caption do lado da imagem ?

Pessoal é o seguinte, Tenho um campo na Tabela chamado Endereco onde todo o endereço e o numero estão juntos exemplo: Rua São Salvador, 334 Meu banco de dados é Firebird. e eu queria percorrer esse campo na tabela e copiar somente o numero apos a virgula, tenho alguns endereço que está assim também: Rua Joao de Barro, S/N preciso também copiar o S/N como faço isso ? alguém poderia me ajudar ?

Nesse caso voce pode usar assim: var Form1: TForm1; AbaAnterior : integer = 0; implementation {$R *.DFM} function TForm1.CheckAdEditEmpty: Boolean; var n : LongInt; begin //verifica todos os TEdits do Form para ver se tem algum vazio //retorna TRUE se houver algum vazio Result := False; for n := 0 to (ComponentCount - 1) do begin if (Components[n].ClassType = TEdit) then begin if TEdit(Components[n]).Text = '' then begin Result := True; Exit; end; end; end; end; procedure TForm1.PageControl1Change(Sender: TObject); begin if CheckAdEditEmpty = true then begin PageControl1.ActivePageIndex := AbaAnterior; end else begin AbaAnterior := PageControl1.ActivePageIndex; end; end; abraço opa, valeu deu certo obrigado!

Cara você salva esse backup como ? Qual extensao ? passa mais dados sobre o backup para ficar melhor a ajuda na restauração!

É voce está enferrujado .... rs existem outras maneiras exemplos: procedure TForm1.Button1Click(Sender: TObject); begin // Deixa invisivel as tabsheet 1 e 2 PageControl1.Pages[1].TabVisible:=false; PageControl1.Pages[2].TabVisible:=false; end; procedure TForm1.Button4Click(Sender: TObject); begin // Deixa desabilitada as tabsheet 1 e 2 PageControl1.Pages[1].Enabled:=false; PageControl1.Pages[2].Enabled:=false; end; procedure TForm1.Button2Click(Sender: TObject); var i : integer; begin // Controlando os tabsheets for I := 0 to ComponentCount - 1 do begin if ( Components[ I ] is TTabSheet ) then begin if (( Components[ I ] as TTabSheet ).Name <> 'NomedoTabSheet' ) then (Components[ I ] as TTabSheet ).TabVisible := False else (Components[ I ] as TTabSheet ).TabVisible := True; end; end; end; abraço Essa seria uma boa maneira, mas eu não quero "sumir" com o TabSheet ou desabilitar os componentes dele. O que eu quero é que se o usuário clicar no TabSheet1, TabSheet2, TabSheet3 ele não consiga acessar, tipo ele clica nesses e ele não consegue sair do TabSheet0, deixa eu explicar o que eu estou fazendo para você entender melhor. No Cadastro de Produto, tem varias Abas e enquanto o usuário não terminar de preencher todos os campos obrigatorios ele não consiga passar para a proxima aba e somente ele vai conseguir se clicar no botão de salvar ai pula para a segunda aba, depois de preencher todos os campos obrigatorios e salva pula para a terceira e assim vai. Eu não quero que fiquei invisivel e nem que ele consiga clicar na aba e ver os campos, da maneira que você colocou eu já tinha tentando, ai achei na net o jeito que eu coloquei e seria maios menos daquele, bloqueando o acesso.

Eu peguei esse exemplo da internet e que no fim acho que vai dar certo, mas já tentei e não estou conseguindo acho que estou enferrujado, alguém pode me ajudar ? if PageControl1.ActivePageIndex = 1 then // 1 é a aba para bloquear begin PageControl1.ActivePageIndex := AbaAnterior end else begin AbaAnterior := PageControl1.ActivePageIndex; end; Ai está apenas bloqueando o TabSheet 1 eu queria bloquear varios TabSheet ao mesmo tempo e quando for "tal" TabSheet eu queria bloquear outro.

Cara, acho que você está tentando deleter algo que apartir dele tem um registro amarrado, verifica melhor suas amarrações nas tabelas....

Um exemplo pratico para voce poder entender: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); Procedure CriaForm (NomeForm: TFormClass); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; fForm : TFormClass; implementation {$R *.DFM} uses unit2, unit3, unit4; procedure TForm1.FormCreate(Sender: TObject); begin RegisterClass(TForm2); RegisterClass(TForm3); RegisterClass(TForm4); end; Procedure TForm1.CriaForm (NomeForm: TFormClass); Begin Try TForm (NomeForm) := NomeForm.Create(self); TForm (NomeForm).ShowModal; Finally FreeAndNil(NomeForm); End; end; procedure TForm1.Button1Click(Sender: TObject); begin fForm := TFormClass(FindClass(Edit1.Text)); CriaForm(fForm); end; end. OBS: Veja ... no Edit voce vai digitar o nome da classe de formulário a ser instanciada Então para chamar o Form2 ou outro nome que voce tenha dado, voce vai digitar no Edit1 a classe do formlario Exe: TForm2 ou TForm3 ou TForm4 .. etc a variavel fForm irá atribuir o nome da classe do form digitado no edit1 .... uma vez que a classe do seu form está registrada então o form será criado e mostrado na tela. Caso ainda não tenha entendido esse exemplo ... veja outros http://delphi.about.com/library/weekly/aa080905a.htm http://www.devmedia.com.br/forum/viewtopic.asp?id=12315 abraço opa...isso mesmo....obrigado pela a ajuda Jhonas..... só o que eu não estava sabendo...como tratar o TEdit.text valeu....

Veja este exemplo http://www.mail-archive.com/delphi-br@yaho...r/msg39418.html abraço então...estou tentando aqui, mas não consegui.....fiz o procedimento... procedure TFrmPrincipal.AtalhoForm(NomeForm: TFormClass); begin Try TForm (NomeForm) := NomeForm.Create(self); TForm (NomeForm).ShowModal; Finally FreeAndNil(NomeForm); End; end; mas ai vou chamar no botao.... procedure TFrmPrincipal.SpbAtaClick(Sender: TObject); begin AtalhoForm(TxtAta.Text); end; mas ai não dá, por causa que estou passando como string.....como eu vou fazer para ele ler o nome da minha janela de um Tedit ?

Pessoal, eu tenho essa função para pegar o serial do HD procedure TFrmIzaLoja.BuscaSerialHd; var nPro, nCPr, nHDS, nPa1, nPa2, nSer, pSHD : String; i : Integer; nRes : Extended; vReg : TRegistry; begin vReg := TRegistry.Create; vReg.RootKey := HKEY_LOCAL_MACHINE; // le a chave ProductID vReg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion', False ); nPro := vReg.ReadString( 'ProductID' ); // remove todos os caracteres não numericos da chave do produto nCPr := ''; dskSer.ExamineDrive; pSHD := dskSer.DiskSerial; for i := 1 to Length( nPro ) do begin if ENumero( Copy( nPro, i, 1 ) ) then nCPr := nCPr + Copy( nPro, i, 1 ); end; // remove todos os caracteres não numericos do serial do HD nHDS := ''; for i := 1 to Length( pSHD ) do begin if ENumero( Copy( pSHD, i, 1 ) ) then nHDS := nHDS + Copy( pSHD, i, 1 ); end; // calcula o serial do programa nRes := ( StrToFloat( nCPr ) * StrToFloat( nCPr ) ) + StrToFloat( nHDS ); nRes := nRes / ( StrToFloat( nHDS ) * 2 ); i := Pos( ',', FloatToStr( nRes ) ); // verifica se foi encontrada alguma virgula no numero definido if ( i > 0 ) then begin nPa1 := Copy( FloatToStr( nRes ), 01, ( i - 1 ) ); nPa2 := Copy( FloatToStr( nRes ), ( i + 1 ), ( Length( FloatToStr( nRes ) ) - i ) ); end; if Length( nPa1 ) > Length( nPa2 ) then nSer := nPa1 else nSer := nPa2; SerialHd := nSer; end; porém quando chega nessa linha ele dá erro. nRes := ( StrToFloat( nCPr ) * StrToFloat( nCPr ) ) + StrToFloat( nHDS ); isso tambem no windows seven, pois no xp na dava esse erro ! alguém tem esse procedimento para o windows seven ?

alguém já conseguiu instalar....pois eu tentei aqui e não consegui.... Opa...consegui....eu fui na pasta install do vcl e compilei a dpr....ai gerou um novo executavel....e ai deu certo......valeu

Pessoal, acho que estou ficando enferrujado...em delphi... estou tentando fazer o seguinte... todas as minhas telas tem nome....uma é PESCAD001 - Cadastro de Pessoas e ai eu to fazendo um atalho...chamar pelo nome...atraves de uma informaçao no TEdit.... tipo o meu TxtAta.text (TEdit) eu digito o nome ( PESCAD001 ) e ai chamar a tela.... alguém poderia me ajudar ??

alguém já conseguiu instalar....pois eu tentei aqui e não consegui....

Tente essa mudança: procedure TForm1.Button1Click(Sender: TObject); var Vcpo, Vvlr : TStringList; i : Integer; begin Vcpo:= TStringList.Create; Vvlr:= TStringList.Create; with VCpo do begin clear; Add( 'DtCad' ); end; with VVlr do begin Clear; Add( #39 + FormatDateTime('dd.mm.yyyy', now) + #39 ); end; ShowMessage(VCpo[i]); ShowMessage(VVlr[i]); Vcpo.Free; VVlr.Free; end; abraço opa....deu certo...obrigado...

Bom dia pessoal, estou tentando limpar uma stringlist, mas dá erro no executavel... with VCpo do begin clear; Add( 'DtCad' ); end; with VVlr do begin Clear; Add( #39 + FormatDateTime('dd.mm.yyyy', TxtDatCad.Date) + #39 ); end; o Vcpo e Vvlr é uma stringlist, q fica no formulario principal..... Vcpo, Vvlr : TStringList; mas ai chega..para dar um clear e ele dá pau no executavel, porem isso comecou a acontecer..agora que eu instalei o windows seven, pois no xp não dava esse pau.....