Si amigo, acabe de componerlo quedo así,
la función
Código Delphi
[-]
function ExisteCtrl(Nombre: string):Boolean;
var
J: Integer;
begin
with frmventas do
begin
Result:= False;
for J:= 0 to ComponentCount - 1 do
if Components[J].Name = Nombre then
Result:= True;
end;
end;
Código Delphi
[-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
if not ExisteCtrl(ComboBox1.Text) then with TCheckListBox.Create(Self) do begin
cajas := tchecklistbox.Create(frmventas);
cajas.Top := 10;
cajas.Left := 10;
cajas.Height := 300;
cajas.Width := 300;
cajas.Parent := pagecontrol1;
cajas.Name := combobox1.Text;
cajas.Items.Add('el nombre es:'+cajas.Name);
cajas.Items.Add(combobox1.Text);
cajas.DragKind := dkDock;
cajas.DragMode := dmAutomatic;
end
else
ShowMessage('Ya existe'); end;
Gracias amigo ecfisa, Muy amable! y sobre todo con excelente paciencia..
PD: Hoy estoy con poca cabeza, espero ya recuperarme!