Churc

Opa O cabeçalho que o Micheus se refere é ao o que as variáveis apontam... exemplo im : IiDados; Esse im se refere a um COM Object ou Activex, normalmente se usa Ii para se referenciar a um "Interfaced Object", poderia você colar suas propriedades e metodos? Outra coisa que é bom testar, se o erro acontece ali chame a Call Stack para ver onde é que o erro acontece realmente na verdade ele não acontece ali e sim em alguma parte que é chamada ali... Depois de ver a Call Stack passe maiores informações... Para aprender como usar a Call Stack da uma olhada neste post. abraços

Ahhhh agora sim! auhahuauh e no Evento OnEnter como disse o Micheus tentou? abraços

Opa Eu não mexo com Banco de Dados por isso não sei ao certo te ajudar, mas isso não seria no Select? vamos supor que voce tenha um campo "Nome" na tabela "Clientes" e este você queira em ordem alfabética... SELECT * FROM CLIENTES ORDER BY NOME ASC ASC = Ordem alfabética, mas tem outro nome não lembro rsr DESC = Ordem reversa Espero que não falei porcaria asuhuhsa abraço

Opa Bacana Micheus eu não sabia dessa possibilidade, é claro, sei que o Firebird tem suporte a conexões remotas mas não a ponto de ser usado como servidor WEB, no máximo eu pensaria se fosse um servidor "dedicado" pra isso rs Interessante é bom que já da até pra pesquisar os servidores que dão suporte... abraço

opa Ahn!? :rolleyes: Bom, não entendi nada nada nada, mas se você quer que somente selecione tudo quando clicar no Edit1 é só colocar no evento onClick do Edit ué? Não é isso? abraço

Opa Hmm Micheus, o que eu acho que ela quer é tirar o ícone do executável, sabe deixar o executável sem ícone e não a janela em si... acredito eu... abraços

Opa Ahh realmente não tinha pensando nessa possibilidade ahuahu vo ver algo e posto aqui abraçx

Opa Desculpa eu falei sem testar rs Edit1.SelectAll; abraçx

Opa Edit1.SelText; abraço

Opa Desculpa, pela demora eu li esqueci de responder... Então, a função Pos() retorna a posição (Index) de uma determinada palavra passada para a função, então o Delete neste caso está apagando a palavra que já foi encontrada e assim pra não econtrá-la novamente... abs

Opa Com o MySQL isto é possível sim, alias atualmente no meu trampo eu utilizo uma conta da HostNet onde tem uma base de Dados MySQL e uso ela pra controle, assim em qualquer lugar do mundo que eu esteja, eu consigo acessar o banco de dados... Com o Firebird até onde sei não é possível não, porque ele não é usado para WEB já o MySQL a maioria dos servidores usam Apache + MySQL abraços

Opa Eu aconselho você usar arquivos .INI, ou pelo menos a estrutura deles... de qualquer forma, respondendo sua dúvida da uma olhada nisto. abraços

Pretinha, Caption := ColorToString(Image1.Canvas.Pixels[a,b]) Isto realmente não tem nada a ver... Só faria com que o Caption do Form ou de um objeto pegasse a cor no formato String/RGB do pixel na posição X e Y que é passado como A e B Pra resetar uma imagem, ou seja, voltar ao que era antes, você deve criar uma variável pode ser em private do tipo TPicture Quando você carregar a imagem você armazena a imagem carregada nessa variavel, depois pra voltar a imagem no TImage para o que era normal basta você carregar no TImage o que está armazenado na variavel... Do resto não sei como te ajudar! abraço

Opa Vai no menu Project > View Source e no código fonte do programa você remove a linha do resource Esta: {$R *.res} abraço

Opa Deio assim vou ser bem claro o porque ninguém respondeu sua pergunta, este tipo de pergunta é muito específico cara, não é todo mundo que já usou este componente ou que precisou manipular arquivos WAB, pra ser sincero eu nunca vi, você é o primeiro, então pra alguém te ajudar a mesma teria que ter conhecimento sobre... É o mesmo que eu puxar um componente chamado TABCD e querer saber porque o componente não faz tal coisa, muito específico isso... Neste caso, a melhor coisa que você tem a fazer é "fuçar" e olhar se não veio nenhum Demo junto com o componente, ou se não há nenhum tipo de ajuda nele... abraço

Opa Resetar a imagem? hum não entendi... Se for apagar a imagem... Image1.Picture.Assign(nil); Seria isso? abraço

Opaaa Legal cara, eu não sabia dessa não, inclusive uma vez pensei em aprender como fazer drivers .vxd e tal mas desisti exatamente por isso, o Delphi não era capaz de compilar um drive por causa da estrutura de código, somente em C/C++ como você mesmo mencionou... Eu nunca mexi não mas interessante vou procurar na net sobre... abraços

Opa talvez tenha maneira mais fácil, mas assim funciona... var s: String; i1, i2: Integer; begin i2 := -1; s := Memo1.Lines.Text; i1 := Pos(LowerCase(Edit1.Text), LowerCase(s)); if i1 = 0 then ShowMessage('Não foi encontrada a palavra: "' + Edit1.Text + '"') else while i1 > 0 do begin i1 := Pos(LowerCase(Edit1.Text), LowerCase(s)); delete(s, i1, Length(Edit1.Text)); Inc(i2, 1); end; if i2 > 0 then ShowMessage('Número de palavras encontradas: ' + IntToStr(i2)); end; abraço

Opa DDDK ? Seja mais específico, talvez alguém tenha usado mas pela sigla não conheça... abraço

Opa Puxe o valor do campo em uma variável... exemplo var s: String; begin s := ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString; if Application.MessageBox ( PChar ('Telefone já registrado para a empresa : ' + s + ' Deseja Registrar assim mesmo ?' ), ' Telefone existente ' , MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then ouu tire o warning, ele avisa porque pode ter problemas pra puxar o valor diretamente do campo pois isto seria dinamico e armazenando em uma variavel voce já teria o valor estático... {$WARNINGS OFF} if Application.MessageBox ( PChar ( 'Telefone já registrado para a empresa : ' + ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString + ' Deseja Registrar assim mesmo ?' ), ' Telefone existente ' , MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then {$WARNINGS ON} abraços

Opa Legal deio, ai vai um outro exemplo bem panaca mas que possa iluminar sua cabeça algum dia ahuahuahu Vamos supor que você tem 10 botões no Form, cada um em seu clique você queria dar um ShowMessage com o Caption do botão que foi clicado... A maneira comum porém complexa é em cada evento de clique do botão você chamar o mesmo e colocar ShowMessage(BotaoQueFoiClicado.Caption); A melhor maneira é usar typecast que consiste em chamar um Objeto sem tipo determinado e pegar sua propriedade passando um tipo exemplo procedure ShowButtonCaption(Sender: TObject); begin //Isso evita que se use essa procedure para outros componentes que não seja do tipo TButton if (Sender is TButton) then ShowMessage((Sender as TButton).Caption); end; E assim você chama em apenas um botão o Código passando ShowButtonCaption(Sender); E nos outros botões apenas linkar com o evento do primeiro botão... Exemplo bem tosco, mass pode ser útil pra alguns algum dia sahusahu abraço

Opa é só passar os paramêtros para a outra função exemplo procedure TForm1.ButtonAbrirClick(Sender: TObject); begin ... end; procedure TForm1.Button1Click(Sender: TObject); begin if bla then Abrir1Click(Self); end; Seria isso? abraço

Opa Seja mais claro, está muito fora de nexo sua pergunta... Exemplo, estes itens estão aonde? abraço

Opa segue um exemplo, não está como MDI mas vai te ajudar... http://scriptbrasil.com.br/forum/index.php?showtopic=101684 abraço

Opa Segue o exemplo... http://scriptbrasil.com.br/forum/index.php?showtopic=101684 abraço