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....
|