nao consigo criar um botao em tempo de execucao alguem podi

Delphi

11/03/2004

ajudar


Programadorjlle

Programadorjlle

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

11/03/2004

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!


GOSTEI 0
Maicongabriel

Maicongabriel

11/03/2004

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:


GOSTEI 0
POSTAR