TLabeledEdit y TPageControl

[Casimiro Noteví]

Hola Angel, por favor, no olvides poner títulos descriptivos, gracias

[[escafandra]]

Angel, esa es una incomodidad propia de delphi y Builder, al menos hasta las versiones que yo he usado. Para poder pasar un control de un contenedor a otro debes editar a mano el archivo dfm trasladando el código del control de un contenedor al otro.

En tu caso quedaría algo así:

  object PageControl1: TPageControl
    Left = 64
    Top = 40
    Width = 273
    Height = 185
    ActivePage = TabSheet3
    TabIndex = 2
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 80
        Top = 80
        Width = 32
        Height = 13
        Caption = 'Label1'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
    end
  end

Saludos.

[Angel.Matilla]

Gracias por la respuesta escafandra. El problema no es ese, y veo que me he explicado mal. Si yo pongo un TLabel o un TLabeledEdit directamente en el TabSheet se ve sin ningún problema.

En esta imagen Label1 está dentro del TabSheet:

  object PageControl1: TPageControl
    Left = 5
    Top = 5
    Width = 289
    Height = 193
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 5
        Top = 15
        Width = 32
        Height = 13
        Caption = 'Label1'
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
  end

pero Label2 está directamente en el Form1. Si a este Label2 le modifico la porpiedad Top y le pongo, por ejemplo, 35 para que esté encima del TabSheet se queda como en la imagen de mi otro mensaje, por debajo del TPageControl; los controles SendToBack y BringToFront no producen ningún efecto.

[Angel.Matilla]

Empezado por Casimiro Notevi

Hola Angel, por favor, no olvides poner títulos descriptivos, gracias

Tienes razón. Disculpa.

[ecfisa]

Hola Angel.Matilla

Estando superpuestos en un mismo contenedor, un TGraphicControl siempre se ocultará detrás de un TWinControl.

Si el que se encuentra detrás del TPageControl se trata de un TWinControl, un TEdit por ejemplo , bastaría con hacer:

Código Delphi [-]
  Edit1->BringToFront();

Pero eso no funcionará con un descendiente de TGraphicControl y ese es el caso de TLabel.

Lo que podrías hacer es lo siguiente:

Código PHP:

...
TLabel *LB;

...
void __fastcall TForm1::btnLabelTabSheetClick(TObject *Sender)
{
  if(LB == NULL){
    LB = Label1;
    RemoveComponent(LB);
    TabSheet1->InsertComponent(LB);
    LB->Parent = TabSheet1;
    LB->Left = 10;
    LB->Top  = 10;
    LB->Caption = "Soy Label1 y ahora\nestoy visible en TabSheet1";
    ...
  }
} 


Saludos

[Angel.Matilla]

Comprendido. Ahora entiendo por qué con un TLabeledEdit sí veo el cuadro (parte TEdit) y no el rótulo (parte TLabel). Sólo una pregunta: Esa función btnLabelOnTabSheetClick, ¿está definida port el usuario o es un evento del TabSheet?

[ecfisa]

Hola de nuevo.

Es el evento OnClick de un TButton llamado "btnLabelTabSheet" (o el evento que prefieras)

Saludos

[Angel.Matilla]

Perfecto. Muchas gracias.

[roman]

No entiendo para qué hacer por código lo que se puede hacer desde el diseño. Se selecciona la componente, se abre el menú contextual, se escoge Cortar y luego se pega dentro del contenedor deseado.

// Saludos