checklistbox y pagecontrol para usarlo dockeable

[ecfisa]

Hola adsbernardo.

la cuestion es cuando se repite el nombre dice que ya esta creado uno, como capturo que ese checklistbox se cerro

Si no te entendí mál, creo que podrías hacerte una función que verifique si el CheckListBox existe:

Código Delphi [-]
...
function TForm1.ExisteCtrl(Nombre: string):Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ComponentCount -1 do
    if Components[i].Name = Nombre then
      Result:= True;
end;

Para usarla por ejemplo:

Código Delphi [-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
  if not ExisteCtrl(ComboBox1.Text) then  // ¿ Ya fue creado ?
    with TCheckListBox.Create(Self) do    // no, crearlo
    begin
      Parent:= Self;
      Name:= ComboBox1.Text;
      DragKind:= dkDock;
      DragMode:= dmAutomatic;
      ...
    end
   else                                       
     ShowMessage('Ya existe');  //si, ya existe. (aca la acción que desees hacer)
end;

Un saludo.

[asdbernardo]

[quote=ecfisa;416704] Hola adsbernardo.

Si no te entendí mál, creo que podrías hacerte una función que verifique si el CheckListBox existe:

Código Delphi [-]
...
function TForm1.ExisteCtrl(Nombre: string):Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ComponentCount -1 do
    if Components[i].Name = Nombre then
      Result:= True;
end;

Con respecto a esa funcion si estoy creando checklistbox en modo de ejecucion, como hago para que verifique todos los creados? porq en ComponentCount y en Components[i].Name me dice que no esta declarado, asumo que aqui es donde coloco los checklistbox?

Añado: que estoy creando los checklistbox en modo ejecucion, en ese caso como se deberia validar si esta o no esta? con la funcion que me diste?

pd: Mil gracias amigo ecfisa!

[ecfisa]

Hola.

No entiendo bién a que te referis, pero a ver si puedo explicarme mejor:

La función 'ExisteCtrl' (o el nombre que le des) recorre todos los componentes del form verificando que el componente exista (haya sido creado) y devuelve True si es así. Caso contrario devuelve False.

Como en la creación del TCheckListBox le asignas el nombre de este modo:

Código Delphi [-]
  cajas.Name := combobox1.Text;

Antes de dicha creación deberías verificar:

Código Delphi [-]
 
  if ExisteCtrl(combobox1.Text) then 
  ...

Agregándola a tu código inicial sería:

Código Delphi [-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
  if not ExisteCtrl(ComboBox1.Text) then     // si no existe el componente
  begin
    cajas := tchecklistbox.Create(frmventas);  // crearlo
    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  // el componente existe,
          // aquí la accion que decidas tomar 
          // o ninguna en cuyo caso sobraría 'else'
end;

Un saludo.

Edito: No había visto tu último comentario:

Añado: que estoy creando los checklistbox en modo ejecucion, en ese caso como se deberia validar si esta o no esta? con la funcion que me diste?

Si, asi es Bernardo.

[asdbernardo]

Empezado por ecfisa

Hola.

No entiendo bién a que te referis, pero a ver si puedo explicarme mejor:

La función 'ExisteCtrl' (o el nombre que le des) recorre todos los componentes del form verificando que el componente exista (haya sido creado) y devuelve True si es así. Caso contrario devuelve False.

Como en la creación del TCheckListBox le asignas el nombre de este modo:

Código Delphi [-]
  cajas.Name := combobox1.Text;

Antes de dicha creación deberías verificar:

Código Delphi [-]
 
  if ExisteCtrl(combobox1.Text) then 
  ...

Agregándola a tu código inicial sería:

Código Delphi [-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
  if not ExisteCtrl(ComboBox1.Text) then     // si no existe el componente
  begin
    cajas := tchecklistbox.Create(frmventas);  // crearlo
    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  // el componente existe,
          // aquí la accion que decidas tomar 
          // o ninguna en cuyo caso sobraría 'else'
end;

Un saludo.

Edito: No había visto tu último comentario:

Si, asi es Bernardo.

Ok amigo Ecfisa gracias de nuevo por tomarte la amabilidad de responderme.. coloque la funcion, pero me muestra undeclared identifiquer? ComponentCount y en Components[i].Name por eso te hice la pregunta ... Saludos voy a chequear a ver...

[ecfisa]

Hola Bernardo.

me muestra undeclared identifiquer

Es probable que hayas declarado la cabecera como función y no como método de TfrmVentas, ya que en realidad es Self.ComponentCount (o visto de otro modo, frmVentas.ComponentCount).

Debería estar más o menos así:

Código Delphi [-]
type
  TfrmVentas = class(TForm)
  ...
  private
     function ExisteCtrl(Nombre: string):Boolean; // puede ir en la sección public...
  public
  end;
...
implementation

function TfrmVentas.ExisteCtrl(Nombre: string):Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ComponentCount -1 do
    if Components[i].Name = Nombre then
      Result:= True;
end;
...

También se puede utilizar como función pero deberás indicar el form a que te refieres precediendo a ComponentCount y Components así:

Código Delphi [-]
   frmVentas.ComponentCount ...
   frmVentas.Components[i]...

Un saludo.

[asdbernardo]

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  // ¿ Ya fue creado ?
    with TCheckListBox.Create(Self) do    // no, crearlo
    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');  //si, ya existe. (aca la acción que desees hacer)
 end;

Gracias amigo ecfisa, Muy amable! y sobre todo con excelente paciencia..

PD: Hoy estoy con poca cabeza, espero ya recuperarme!

[cloayza]

Otra alternativa para prescindir de crear una funcion que busque el componente es

Código Delphi [-]
procedure TfrmVentas.Button1Click(Sender: TObject);
begin
{FindComponent, se encuentra en la Unit Classes
Devuelve el componente asociado al nombre que recibe de parametro}
    if FindComponent(ComboBox1.Text)=Nil then  // ¿ Ya fue creado ?
    with TCheckListBox.Create(Self) do    // no, crearlo
    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');  //si, ya existe. (aca la acción que desees hacer)
 end;

Saludos