![]() |
![]() |
| Paypal | 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 | |
|
|
|