![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
![]() 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. |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|