Buscar por:

Como criar um form completo com botões dinamicamente

Código

Como criar um form completo com botões dinamicamente

Você pode criar qualquer componente do delphi de forma dinãmica, incluindo todos os componentes visuais(buttons, textedits, maskedits, labels). Para que serviria isso? Para muitas coisas, uma delas é que vocÊ pode criar qualquer controle em tempo de execução e depois de utiliza-lo descarrega-lo da memória...

Exemplo:Como Criar um botão quando o mouse for pressionado e associar eventos nele....

É só colar dentro da unit da form....

=========inicio do copia e cola==========

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

  TForm1 = class(TForm)

  procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

  procedure FormCreate(Sender: TObject);

  private

  { Private declarations }

  public

  { Public declarations }

  end;

var

  Form1: TForm1;

  contador:integer;

implementation

{$R *.DFM}

uses stdctrls;

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); 

  b.Caption:='Clique-me';

  inc(contador);

  b.visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

contador:=1;

end;

end.

============fim do copia e cola==========

Se quiser associar um evento ao botao é só copiar os procedimento clicou e alterar

o procedmento mouse down para o que segue....

=======inicio do copia e cola

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);

  b.Caption:='Clique-me';

  inc(contador);

  b.visible:=true;

  b.onclick:=clicou;

end;

procedure TForm1.clicou(sender: TObject);

begin

ShowMessage('Clicou!!!');

end;

=====fim do copia e cola======

Com isto concluimos que podemos criar qualquer coisa em tempo de execução com economia de memória. BAsta para isso dar o create da classe....

Para apagar o botao devemos ter cuidado para não apagar dentro do evento visto que 

gerara uma exceção. Existe duas formas de se contornar isto, a primeira é fornecendo um atraso 

e a segunda é atraves de uma API do windows mas isto fica para os proximos e-mails...

Um abraço...