nao consigo criar um botao em tempo de execucao alguem podi

Question

ajudar...

Lucas Silva · Answer

qual � a sua d�vida?qual � a sua d�vida? detalha ela ai...tamb�m utilize o pesquisar do f�rum.....Hoje mesmo respondi algo parecido com isto que voc� est� querendo!...

Maicongabriel · Answer

Declare uma variavel[b:f498b41746]::[/b:f498b41746]

btnTeste : TButton;

Codigo para criar um bot�o[b:f498b41746]::[/b:f498b41746]

btnTeste := TButton.Create(Self);
with btnTeste do
begin
  Width   := 60;
  Height  := 25;
  Caption := �Teste�;
  Left    := 10;
  Top     := 10;
  Visible := True;
  Parent  := Self;
  OnClick := Obj.OnClick;
end;

Crie uma Classe, antes do [i:f498b41746][b:f498b41746]implementation[/b:f498b41746][/i:f498b41746], para captura o Click do mouse[b:f498b41746]::[/b:f498b41746]

TObj = Class(Tcomponent)
public
  procedure OnClick(Sender: TObject);
end;

Crie a procedure OnClick da Classe[b:f498b41746]::[/b:f498b41746]

procedure TObj.OnClick(Sender: TObject);
begin
  if Sender = btnTeste then
    ShowMessage(�O Bot�o Teste foi clicado!�);
end;

:wink:

F�rum nao consigo criar um botao em tempo de execucao alguem podi #219983