Ver Mensaje Individual
  #5  
Antiguo 31-08-2011
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
A cómo ya te han dicho, tienes que declarar el procedimiento en una unidad aparte (opcionalmente). Por ejemplo:

Código Delphi [-]
unit mis_procedimientos

interface

procedure ProcedimientoX;

implementation

procedure ProcedimientoX;
var
    OpenDialog : TOpenDialog;
begin
    with OpenDialog.Create(nil) do
    try
        Title := 'Guardar Salva.';
        Execute;
        { . . . }
    finally
        Free;
    end;
end;

Luego, tienes que declarar, en la unidad dónde implementas el formulario, que utilice los procedimientos y demás cosas declaradas en la unidad mis_procedimientos. Esto se hace agregando el nombre de la unidad que quieres utilizar a la sección de "uses" de la unidad desde dónde deseas llamar a los procedimientos en mis_procedimeintos. Por ejemplo:

Código Delphi [-]
unit mi_formulario

uses Windows....

type
    TForm1 = Class(TForm)
        ...
    end;

implementation

uses mis_procedimientos; // <= aquí declaras que necesitas los procedimientos declarados en esta unidad.

    ...
    ...

end.

Espero que hallas entendido mi intento de explicación

Saludos,
Chris
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita