Delphi - help incidir en el Registro

   
Vista:

help incidir en el Registro

Publicado por Hector (39 intervenciones) el 31/01/2009 07:12:48
Lo que trato de hacer es incidir en el registro de Windows, por ejemplo tengo un CheckBox1 ahora cuando lo marco me redimensiona mi form mas corto o más largo

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Form2.Height:=100;
CheckBox1.Checked:=true;
CheckBox1.Caption:='Activa Fondo';
CheckBox1.Hint:='Fondo Desactivado';
end
else
begin
Form2.Height:=773;
CheckBox1.Checked:=false;
CheckBox1.Caption:='Desactiva Fondo';
CheckBox1.Hint:='Fondo Activado';
end;
end;

Ok hasta ahí no hay problema el lio está en que cada vez que entre o salga del programa los cabios no se guarda.

Como puedo lograr que si yo dejo el programa con Form2.Height:=100; cuando entre de nuevo se mantenga y viceversa.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:help incidir en el Registro

Publicado por Eva (484 intervenciones) el 31/01/2009 12:17:46
Lógico que no se mantenga, cuando vuelves a entrar aparecerá como tu lo diseñaste.

Puedes guardar los valores en algún sitio, y en el evento OnCreate del form leer estos valores y dale la dimensión que corresponda con ese mismo código que tienes en el CheckBox.
Con esto incluso cada vez que cargues la aplicación tendrás las mismas dimensiones usadas la última vez.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:help incidir en el Registro

Publicado por E.T. (1107 intervenciones) el 31/01/2009 17:10:23
Esto te puede servir

http://delphiallimite.blogspot.com/2006/08/guardando-y-cargando-opciones.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:help incidir en el Registro

Publicado por Eva (484 intervenciones) el 31/01/2009 17:42:26
Además de las opciones que hay en esa dirección, otra posibilidad es crear una tabla en tu base de datos, y guardar en ella esos valores para leerlos cuando lo necesites.
Puede ser un solo registro con tantos campos como datos tienes que guardar, o un solo campo con tantos registros como datos tienes que guardar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:help incidir en el Registro

Publicado por Hector (39 intervenciones) el 01/02/2009 00:14:44
Mi esto es lo que necesito claro funcionando

procedure TForm1.CheckBox1Click(Sender: TObject);

var Reg: TRegistry;
begin // Creamos un objeto para manejar el registro Reg := TRegistry.Create;
// Guardamos las opciones
try Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey( 'SoftwareMiPrograma', True ) then
begin
if CheckBox1.Checked then
label1.Caption:='si';


Reg.CloseKey;
end;
finally Reg.Free;
end;
end;

a si desmarco el CheckBox1 por ejemplo que ponga (no)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar