Funciones comunes a varios Forms

[[gluglu]]

Hola Amigos !

Quiero utilizar algunas funciones de las que hago uso a lo largo de todo el programa sin tener que definirlas en cada uno de los Forms que las utiliza.

Por ejemplo, tengo una función que me cambia el color de edición de un DBEdit cada vez que le doy enfoque :

Código Delphi [-]
procedure TMain.GetFocus(Sender: TObject);
begin
  ActiveControl.Color      := clWindow;
  ActiveControl.Font.Color := clMaroon;
end;

Cual es la mejor manera de hacerlo ? Gracias.

[jymy788]

hay varias formas de hacer esto, pero la más sencilla, para mi gusto, es crearte una unidad, sin formulario, donde te definas estas funciones, y lo único que tendrás que hacer es incluir en tus formularios, en las uses, la unidad (.pas) donde te hayas definido esas funciones.

Espero haberte solucionado las dudas.

Un saludo

[[gluglu]]

Gracias,
Así pensaba yo también. Pero mi duda adicional es cómo implemento las funciones? Cómo las defino en el apartado "interface" ?

Tengo que incluir en esa nueva Unit todas las "uses" a las que hace referencia la función que voy a definir?

[jymy788]

tu solito te has contestado, jejeje

[[gluglu]]

Gracias, voy a intentarlo !

[[gluglu]]

Una última ayudita, por favor.

He creado este código en una nueva Unit.pas :

Código Delphi [-]
unit GeneralFunctions;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.Grids, Borland.Vcl.DBGrids,
  Borland.Vcl.ExtCtrls, Borland.Vcl.StdCtrls, Borland.Vcl.Mask,
  Borland.Vcl.DBCtrls;
implementation
procedure GetFocus2(Sender: TObject);
begin
  (Sender as TWinControl).Color      := clWindow;
  (Sender as TWinControl).Font.Color := clMaroon;
end;
procedure LoseFocus2(Sender: TObject);
begin
   (Sender as TWinControl).Color      := cl3DLight;
   (Sender as TWinControl).Font.Color := clNavy;
end;
end.

En uno de los forms añado "uses GeneralFunctions". Pero no me permite hacer llamadas a las funciones definidas en GeneralFunctions.pas

Algo debo de estar haciendo mal en la implementación de las funciones a la unit adicional, no?

Gracias de nuevo.