La Web del Programador: Comunidad de Programadores
https://www.lawebdelprogramador.com/foros/Delphi/317424-Ventanas.posicion.html

Ventanas.posicion

Ventanas.posicion

Publicado por Novatus (5 intervenciones) el 21/12/2003 07:27:51
cuando abro y cierro una ventana me gustaria que aparezca con el mismo tamaño y posicion- como hago esto?
no logro hacerlo en tiempo de diseño.

RE:Ventanas.posicion

Publicado por M@rceloL (213 intervenciones) el 21/12/2003 22:49:16
Bueno, se podrían guardar los valores en un archivo INI:

Ejemplo:

var Arch:TIniFile;

begin
Arch:=TIniFile.Create('Datos.ini'); //Lo abrimos con una ruta dada

//Guarda el tamaño
Arch.WriteInteger('FORMA1','TamAncho',Form1.Width);
Arch.WirteInteger('FORMA1','TamAlto',Form1.Height);

Arch.Free;
end;

Para recuperar se leería el archivo INI en, por ejemplo el evento OnActivate:

procedure Form1.OnActivate(Sender: TObject):

var Arch:TiniFile;
begin
Arch:=TIniFile.Create('Datos.ini');

Form1.Width:=Arch.ReadInteger('FORMA1','TamAncho',200);
Form1.Heigth:=Arch.ReadInteger('FORMA1','TamAlto',100);

Arch.Free;
end;

El 200 y el 100 son valores por defecto, por si la entrada no existe.

Para la posición, creo que podrías usar el Form1.Left y Form1.Top.

Espero te sirva. Saludos y buenas compiladas.

RE:Ventanas.posicion

Publicado por Pablo (10 intervenciones) el 25/12/2003 23:53:52
en propiedades del form en position debes poner el valor en poDesigned y conn eso el form cuando compiles te aparecera en el lugar donde lo dejaste en delphi y con el tamaño que quedo. si no es así deberias, en el evento oncreate del form poner este código
form1.Width 540 heigth 340. Esta sería una de las formas, cualquier cosa escribeme :=)