TLabeledEdit y TPageControl

[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

[Angel.Matilla]

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

Se ha ido todo un poco de madre. El problema es este: Tengo tres tablas distintas sin ninguna relación entre sí pero que las tres tienen un campo llamado título. Para ahorrar no sólo diseño sino también para simplificar el código quería poner un TEdit, con su TLabel, o un TLabeledEdit (estoy usando BCB6) único común a tres pestañas de un TPageControl. Usando un TLabeledEdit; si lo pongo dentro del TForm, pero no dentro del TPageControl, como en el Label2 de la imagen:

y luego modifico la propiedad Top de dicho elemento, poniendo por ejemplo 35, en lugar de ver ese Caption Label2 simplemente el TLabel desparece y, en diseño, se ve como en la imagen del primer mensaje

Las sugerencias que me habéis hecho se basan todas en hacer que el TLabel o el TLabeledEdit dependa del TPageControl (Label1->Parent = PageControl1) y no es eso.

Yendo a modificar directamente el dfm a pedal se me ocurrió esta forma:

  object PageControl1: TPageControl
    Left = 125
    Top = 55
    Width = 516
    Height = 291
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object Label2: TLabel
      Left = 270
      Top = 60
      Width = 32
      Height = 13
      Caption = 'Label2'
    end
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 20
        Top = 15
        Width = 32
        Height = 13
        Caption = 'Label1'
      end
    end
  end

poniendo el TLabel ANTES de los TabSheet, pero el resultado es el mismo. Gracias por las respuestas, pero ecfisa me dio la clave y he deducido que lo que pretendo no es posible.

[roman]

Usa un TStaticText. Es como un TLabel, pero es un TWinControl en lugar de un TGraphicControl.

// Saludos

[roman]

Incluso puedes usar un TFrame con un TLabel y un TEdit dentro. El TFrame lo colocas arriba del PageControl y tienes el efecto deseado.

// Saludos

[Angel.Matilla]

Empezado por roman

Usa un TStaticText. Es como un TLabel, pero es un TWinControl en lugar de un TGraphicControl.

¿Ves? Esto no se me había ocurrido y me viene de perlas. Gracias.