o problema é que o jvoutlookbar nao tem envento em seus botoes!
mas eu resolvi!
o jvoutlookbar tem um unico onexecute e nele eu pego o activepage e o
button que foi clickado! eu utilizo um case que eu fiz com os codigos
da tabela (pois é dinamico) e prontu! foi ate facil!!
valeu assim mermo!!
t+
On Wed, 02 Feb 2005 17:25:19 -0000, silvajatem <[EMAIL PROTECTED]> wrote:
>
>
> Nunca usei esse componente mas segue um exemplo com TButtom mesmo:
>
> // procedure para criar um form qualquer...
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> try
> Form1 := TForm1.Create(Application);
> Form1.ShowModal;
> finally
> FreeAndNil(Form1);
> end;
> end;
>
> // Agora eu crio um botao e atribuo a procedure anterior pra ele:
>
> btn := TButton.Create(Form1);
> btn.OnClick := Button1Click;
>
> O botao passa a executar a procedure no OnClick....
>
> Uma dica para esse componente aí:
> Crie um evento normalmente (para um componente no form...) pra voce
> pegar como deve ser a procedure.... observe a procedure abaixo:
>
> procedure Soma (A, B: Integer);
> begin
> //// comandos...
> end;
>
> btn.OnClick := Soma; // Isso nao irá funcionar pois os tipos de
> parametros e retorno esperados pelo OnClick do botão são diferentes
> da procedure soma...
>
> Espero que ajude...
> Abraços
>
> --- Em delphi-br@yahoogrupos.com.br, Rafael Jorge <[EMAIL PROTECTED]>
> escreveu
> > to em desespero tenho uma sistema pra entregar HOJE pois o cara vai
> > viajar pra outro estado e levar o sistema! o sistema é um sistema de
> > produção onde na tela principal mostras as fazes e seus serviço
> > dinamicamente pro usuário onde vai clicar num botão de uma pasta num
> > jvOutlookbar (da jedi) e esse botão tem que abrir um form! Já fiz o
> > form, o preenchimento dinâmico e tudo. so que ta faltando vincular
> > cada botão para a chamada do formulário seque o que eu fiz:
> >
> > obs: barra é o tjvoutlookbar
> >
> > dm.query.sql.text:= 'SELECT NOME, CODIGO FROM FASES_DA_PRODUCAO
> ORDER BY NOME';
> > DM.QUERY.Prepare;
> > DM.QUERY.OPEN;
> > I:= 0;
> > WHILE NOT DM.QUERY.Eof DO
> > BEGIN
> > barra.Pages.Add;
> > barra.Pages.Items[I].Caption:= DM.QUERY.FIELDBYNAME
> ('NOME').ASSTRING;
> > DM.aux.SQL.Text:= 'SELECT NOME, CODIGO FROM
> SERVICO_DE_PRODUCAO'+#13+
> > 'WHERE FASE_DE_PRODUCAO =
> > '+DM.QUERY.FIELDBYNAME('CODIGO').ASSTRING+#13+
> > 'ORDER BY NOME';
> > DM.AUX.Prepare;
> > DM.aux.Open;
> > ii:= 0;
> > WHILE NOT DM.aux.Eof DO
> > BEGIN
> > BARRA.Pages.Items[I].Buttons.Insert(ii).Caption:=
> > dm.aux.fieldbyname('nome').asstring;
> > barra.pages.Items[i].Buttons.Items[ii].
> > dm.aux.Next;
> > inc(ii);
> > END;
> > DM.QUERY.NEXT;
> > INC(I);
> > END;
> >
> > quem puder me ajudar so nao dou minha alma nem o que vc´s tao
> pensando tb!
> > mas serei muito grato!
> >
> > t+
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
