Hola amigo
Acerca de si delphi coloca nombres a los componentes por defecto,.... te cuento que si lo hace, a menos que nosotros no se lo asignemos. Por ejemplo en el caso de los botones, delphi asigna así: button1, Button2,..... Button_n.
Para tus otras dudas el codigo siguiente seguro te va a servir...
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure ClickEnUnBoton(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
Incremento:Integer=0;
implementation
{$R *.DFM}
procedure TForm1.ClickEnUnBoton(Sender: TObject);
begin
with (Sender As TButton) do
Top:=Top+Height+10;
if (Sender As TButton).Top>100 then
with (Sender As TButton) do
Top:=10;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
j: Integer;
begin
for j:= 0 to 5 do
begin
with TButton.Create(Form1) do
begin
Parent:=Form1;
Top:=10;
Left:=10+Incremento;
Incremento:=Incremento+Width+10;
Caption:='Botón'+IntToStr(j);
Name:='MiNombre'+IntToStr(j);
OnClick:= ClickEnUnBoton;
end;
end;
end;
end.
Seguro esto te ayudara en lo que necesitas, solo correlo y ya está
Suerte.....
Última edición por Majo fecha: 28-07-2003 a las 00:32:10.
|