Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 05-01-2005
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Poder: 23
gluglu Va por buen camino
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.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:01:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi