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.... |
Código:
RxCheckListBox1.Parent := Formulario2; |
La franja horaria es GMT +2. Ahora son las 17:16:10. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi