Agregar y Arrastrar como en Tiempo de Diseño?

[jam888]

Anda con las teclas pero debo de hacerlo con el mouse (agrandarlo)por que asi me lo han solicitado, que va a hacer yo no mando. Espero me puedan respomder.Gracias

[dec]

Hola,

A ver. El componente escrito por Neftalí y que él mismo te refiere más arriba hace exactamente lo que precisas. Como el componente es de código abierto bien podrías estudiar su funcionamiento. ¿Porqué no echas un vistazo al componente susomentado de una vez por todas y nos dices qué tal te va con el mismo?

O, cuando menos, dínos, pues mira, he mirado el componente de Neftalí pero, no me va bien por esto, por esto y por esto otro. Porque, ya te digo, teniendo tan a la mano una posible solución a tu problema no entiendo por qué no la miras siquiera... ¿o es que la miraste ya, que es lo que digo, y no te sirvió?

[jachguate]

Esto mas bien parece una tarea del colegio que un requerimiento de un programa normal... yo diría que ya tenes suficiente información para hacerlo por tu cuenta. ... ¿no?

[jam888]

Estimados les comento que chequee el componente y ahora todo marcha ok,
lo unico es que cuando cambio de tamaño y lugar los componentes estos cambios no permanecen en el formulario, es decir lo cierro y cuando vuelvo a ejecutarlo los componentes esatan en el lugar original ¿Como guardo la distribucion y el tamaño de los componentes en el formulario?
Gracias y Un Abrazo.

[jmariano]

Lógicamente, todos los cambios que hagas sobre posición y tamaño estarán sólo almacenados en memoria (de ahí que se pierdan al salir del formulario), por lo que tendrás que almacenarlo en algún medio "no volátil", como un archivo en el disco duro, por ejemplo.

Para ello puedes utilizar la clase TStringList que te permite almacenar y cargar fácilmente cadenas de texto o utilizar las funciones que posee Delphi para almacenar y recuperar el estado (o recursos) de un objeto o componente.

Te pongo un ejemplo que viene en la ayuda de Delphi para "convertir" un componente a cadena de caracteres y viceversa:

Código Delphi [-]
function ComponentToString(Component: TComponent): string;

var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;

    end;
  finally
    BinStream.Free
  end;
end;

function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);

    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;

(Consulta la ayuda de Delphi si tienes dudas de lo que hace ambos procedimientos porque está mu' bien explicado)

Saludos!

[jachguate]

las jedi tienen gestores de persistencia de propiedades que podes almacenar en archivos ini, el registry, xml o una base de datos.

Si te interesa, mirá los compoentes de la paleta Jv Persistence

[vtdeleon]

Saludos

O tambien puedes usar este componente de la pagina de neftali

[jam888]

Estimados gracias a todos por ocuparse de este tema.
Un Abrazo