Na verdade eu peguei o exemplo e não editei João... foi malz.
Joao Morais <[EMAIL PROTECTED]> escreveu: Ricardo
César Cardoso wrote:
> Tá na mão:
>
> /************************/
> procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> var b:tbutton;
> begin
> b:=Tbutton.create(self);
> b.visible:=false;
> b.parent:=self;
> b.left:=x;
> b.top:=y;
> b.name:='Btn'+inttostr(contador);
Acho que não precisa alterar o name, e nem precisa de um contador.
--
Joao Morais
> b.Caption:='Clique-me';
> inc(contador);
> b.visible:=true;
> b.onclick:=clicou; // <= aqui está o que vc precisa. É só descrever o
> procedimento na procedure "Clicou"
> end;
>
> procedure TForm1.clicou(sender: TObject);
> begin
> ShowMessage('Clicou!!!');
> end;
> /***********************/
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
[As partes desta mensagem que não continham texto foram removidas]
