Hola
Cita:
|
Empezado por Carmelo Cash
2- Saben de alguna forma en que pueda guardar directamente Edit1.Font sin tener que colocar un campo para cada propiedad del font?
|
Si
Código Delphi
[-]
Function FontToInteger (FFont : Tfont) : Integer;
begin
Result := Integer(FFont);
end;
Function IntToFont (FInt : Integer) : TFont;
begin
Result := TFont(FInt);
end;
Luego solo te falta guardar en un campo de tu tabla y restablecerlo cuando gustes
Espero te sirva
Un saludo