boa noite, vc conegui resolver seu problema com "Como atribuir instruções a eventos em tempo de execução ?"
Em 19/01/2010 02:48, developer.systems escreveu: > > Boa noite a todos ! > > Tenho uma função que cria o botão tem tempo de execução, mas como > atribuir em tempo de execução, uma função/procedure ao evento onClick ? > > procedure MeuBotao( oFrm: TForm ) ; > var oBtn: TButton ; > > begin > oBtn:=TButton.Create(oFrm); > oBtn.Parent:=oFrm; > oBtn.Width:=60; > oBtn.Left:=10; > oBtn.Top:=oFrm.Height-oBtn.Height-40; > oBtn.Caption:='Close'; > //oBtn.onClick ???? Neste evento, atribuir por exemplo: ShowMessage( > 'MyButton RunTime and onClick' ) ; > > end; > > Virtualmente/Regards > Eric > Developer.Systems > São Paulo - Brasil > > > [As partes desta mensagem que não continham texto foram removidas]
