Ajudar para codificar evento em runtime

Question

Necessito criar um TForm + TEdit + TButton e codificar o evento OnClick do TButton, mas s� que tudo em runtime . Tentei fazer mas sem sucesso... Como fa�o isso? Estou errando basicamente na cria��o do evento e seu c�digo de execu��o.

Obrigado a todos e aguarde�o desde j� a quem puder ajudar.

Vitor Alcantara · Answer

Aqui um pequeno exemplo de se fazer isso via run-time

primeiro declaro a procedure do bot�o na sess�o private do meu form por exemplo:

type
  TForm1 = class(TForm)
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    procedure BotaoClick(Sender: TObject);//Aqui ta a declara��o
    { Private declarations }
  public
    { Public declarations }
  end;

Depois � s� atribuir ao evento OnClick do bot�o

procedure TForm1.Button3Click(Sender: TObject);
var
  frm:tForm;
  Botao : tButton;
  Edit : tEdit;
begin
  Try
    //Instancia o form
    Frm := TForm.Create(nil);
    //Instancia o bot�o
    Botao := TButton.Create(Frm);
    //Insancia o edit
    Edit := TEdit.Create(Frm);

    with Botao do
    begin
      Parent := frm;
      //Aqui indico o evento OnClick do bot�o
      //lembrando que esse evento foi declarado acima
      //dentro da class do meu form atual.
      OnClick := BotaoClick;
      Caption := �Testar�;
      Left := 8;
      Top := 35;
    end;

    with Edit do
    begin
      Parent := frm;
      Name := �Edit�;
      Left := 8;
      Top := 8;
    end;

    frm.ShowModal;

  Finally
    Frm.Free;
  End;

end;

Aprendiz_ce · Answer

[quote:56e15536c6=�Vitor Araujo Alcantara�]Aqui um pequeno exemplo de se fazer isso via run-time

primeiro declaro a procedure do bot�o na sess�o private do meu form por exemplo:

type
  TForm1 = class(TForm)
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    procedure BotaoClick(Sender: TObject);//Aqui ta a declara��o
    { Private declarations }
  public
    { Public declarations }
  end;

Depois � s� atribuir ao evento OnClick do bot�o

procedure TForm1.Button3Click(Sender: TObject);
var
  frm:tForm;
  Botao : tButton;
  Edit : tEdit;
begin
  Try
    //Instancia o form
    Frm := TForm.Create(nil);
    //Instancia o bot�o
    Botao := TButton.Create(Frm);
    //Insancia o edit
    Edit := TEdit.Create(Frm);

    with Botao do
    begin
      Parent := frm;
      //Aqui indico o evento OnClick do bot�o
      //lembrando que esse evento foi declarado acima
      //dentro da class do meu form atual.
      OnClick := BotaoClick;
      Caption := �Testar�;
      Left := 8;
      Top := 35;
    end;

    with Edit do
    begin
      Parent := frm;
      Name := �Edit�;
      Left := 8;
      Top := 8;
    end;

    frm.ShowModal;

  Finally
    Frm.Free;
  End;

end;

[/quote:56e15536c6]

Ol� Vitor,

Ajustei o c�digo as minhas necessidade e ficou certinho.

Obrigado pela aten��o.

Abra�o.

F�rum Ajudar para codificar evento em runtime #365400