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 [email protected], 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
<*> 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
