Fórum Evento OnClick BitBtn??? #225800
13/04/2004
0
eu crio um botão em tempo de execução, mas não consigo usar o evento Click..
Como faço isso???
agradeço antecipadamente..
Cabelo
Cabelo
Curtir tópico
+ 0Posts
13/04/2004
Sremulador
Gostei + 0
13/04/2004
Cabelo
e aí tudo bem??rs..
Cara o meu problema é o seguinte, onde coloco isso onclick(sender), o quê preciso é que quando clicar no botão, ele dispare o evento click dste botão, o problema é que ele é criado em tempo de execução, e não tenho a paleta de eventos, como faço??
Gostei + 0
13/04/2004
Slack
mas dae depende do que tu quer fazer neh :-D
Gostei + 0
13/04/2004
Bon Jovi
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Botao: TButton;
procedure Botao_Click(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Botao_Click(Sender: TObject);
begin
ShowMessage(´Teste´);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Botao := TButton.Create(Self);
Botao.Caption := ´Botao´;
Botao.Parent := Self;
Botao.OnClick := Botao_Click;
end;
end.
Gostei + 0
14/04/2004
Cabelo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)