Evento OnClick BitBtn???
Caros colegas..
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
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
Curtidas 0
Respostas
Sremulador
13/04/2004
Onclick (sender);
GOSTEI 0
Cabelo
13/04/2004
Caro amigo Eduardo..
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??
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
Slack
13/04/2004
cara explique mais o q vc deseja fazer vc invez de criar o botao em runtime poderia crialo e deixa visible:=false
mas dae depende do que tu quer fazer neh :-D
mas dae depende do que tu quer fazer neh :-D
GOSTEI 0
Bon Jovi
13/04/2004
Vê se é isso q precisa fazer:
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.
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
Cabelo
13/04/2004
É isso mesmo muito obrigado..
GOSTEI 0