Ver Mensaje Individual
  #5  
Antiguo 27-04-2006
miguelml miguelml is offline
Miembro
 
Registrado: nov 2005
Posts: 24
Reputación: 0
miguelml Va por buen camino
Ya he encontrado "La madre del borrego" jjajajaja
El problema era que los tabsheets no continienen nada dentro, sino que en mi caso (tabsheets con memos dentro) lo que hace es esconder o mostrar segun la pestaña activa, es decir, los memos estan directamente en el form y los tabsheet lo unico que hacen es mostrarte uno u otro.

El codigo que e usado es:

Código Delphi [-]
while i<(MDIchildren[0].componentCount) do
    begin
      if (MDIChildren[0].Components[i] is TTabSheet) and (MDIChildren[0].Components[i+1] is TSynedit) then
      begin
        Arxius.Add((MDIchildren[0].Components[i] as TTabsheet).Caption);
        Contt.Clear;
        Contt.AddStrings((MDIChildren[0].Components[i+1] as TSynedit).Lines);
      end;
      i:=i+1;
    end;

gracias a todos
un saludo!
Responder Con Cita