demas
Novato
Registrado: Terça-Feira, 26 de Junho de 2012
Mensagens: 17
|
 Enviada: Qui Mai 30, 2013 1:12 pm Assunto: Componente criado dinamicamente(manipulador)[Resolvido] |
 |
|
Boa tarde a todos.
Como se implementa um manipulador de evento para um componente criado dinamicamente?Tentei colocando o cabeçalho do manipulador na seção interface e implementando manualmente, porém na hora de chamar o evento não há resposta.
Segue o código:
| Código: |
unit UCriando_componente_dinamicamente;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
{evento criado manualmente para botão criado dinamicamente}
procedure btnBotaoClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
btnBotao: TButton;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
begin
btnBotao := TButton.Create(Self);
btnBotao.Parent := Form1;
btnBotao.Left := (ClientWidth - btnBotao.Width) div 2;
btnBotao.Top := 100;
btnBotao.Caption := 'Botão';
btnBotao.visible := true;
end;
{evento do objeto btnBotao criado dinamicamente}
procedure TForm1.btnBotaoClick(Sender: TObject);
begin
ShowMessage('Olá, mundo!');
end;
end.
|
Editado pela última vez por demas em Qui Mai 30, 2013 7:33 pm, num total de 1 vez |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
