Ver Mensaje Individual
  #2  
Antiguo 05-05-2005
Avatar de Crandel
[Crandel] Crandel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Parana, Argentina
Posts: 1.475
Reputación: 23
Crandel Va por buen camino
Post

Si no entiendo mal es solamente una procedimiento o una función que creaste y no sabes donde ponerla.
Las posibilidades son, como método de la TForm o externa. En el ejemplo de abajo estan:

Código Delphi [-]
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Gradient, Menus;

type
  Form1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    // como método
    procedure NombreMetodo(vaiable: integer);
  end;

// como procedimiento
procedure NombreProcedimiento(vaiable: integer);

var
  MailForm: TMailForm;

implementation

{$R *.dfm}

procedure Form1.FormCreate(Sender: TObject);
begin
   
end;

procedure Form1.NombreMetodo(vaiable: integer);
begin
   
end;

procedure NombreProcedimiento(vaiable: integer);
begin
   
end;

end.
__________________
[Crandel]
Responder Con Cita