FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Crear un objeto?
Hola a todos los del foro. El problema que tengo es que creo un componente en un formulario1 pero quiero que aparesca en el formulario2 como hago este es el codigo que tengo que esta ubicado en en formulario1.
codigo __________________________ procedure TFormulario1.Button2Click(Sender: TObject); Var RxCheckListBox1: TRxCheckListBox; begin RxCheckListBox1 := TRxCheckListBox.Create (Self); RxCheckListBox1.parent:=Self; RxCheckListBox1.Left:= 7; RxCheckListBox1.Top:=91; RxCheckListBox1.Width:= 434; RxCheckListBox1.Height:= 299; RxCheckListBox1.CheckKind:= ckCheckMarks; RxCheckListBox1.AutoScroll:= False; RxCheckListBox1.BorderStyle:= bsNone; RxCheckListBox1.Color:= clBtnFace; RxCheckListBox1.Columns:= 2; RxCheckListBox1.Font.Charset:= ANSI_CHARSET; RxCheckListBox1.Font.Color:= clWindowText; RxCheckListBox1.Font.Height:= -9; RxCheckListBox1.Font.Name:= 'Arial'; RxCheckListBox1.Font.Style:= []; RxCheckListBox1.GraySelection:= True; RxCheckListBox1.IntegralHeight:= True; RxCheckListBox1.ItemHeight:= 13; RxCheckListBox1.ParentFont:= False; RxCheckListBox1.TabOrder:= 2; RxCheckListBox1.Visible:=true; end; _______________________ Un saludo a todos.... |
#2
|
||||
|
||||
Código:
RxCheckListBox1.Parent := Formulario2;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|