usar un procedure en varios formularios

[[Lepe]]

Exacto, es así.

En el caso de que algún heredero de TMiform deba hacer algo distinto en el procedimiento Habilita, puedes redefinir su comportamiento así:

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MiForm;

type
  TForm2 = class(TMiForm)
    Edit1: TEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  protected
     procedure Habilita(Edit: TEdit); override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
{$R *.dfm}

procedure TForm2.Habilita(Edit:TEdit);
begin
   inherited Habilita(Edit);  // llama a TMiForm.Habilita
   // hacer algo más
end;

end.

La diferencia con tu codigo es la línea donde pone override. Es una directiva que significa "sobreescribir", es decir, ahora el TForm2 tiene su propio método Habilita, que llama a TMiForm.Habilita y además puede añadirle alguna funcionalidad extra.

Saludos

[[Delphius]]

joHn je@N, respondiendo a tu pregunta:

Ahora. Menciona Lepe implicitamente que hay una diferencia entre la sección implementation e interface (cosa que se me hace lógico porque estan en dos secciones o partes de código distintas jejeje) asi que eso es un premio a mi novatez y me gustaría que me dieran un link en donde poder saber exactamente la diferencia entres ambas secciones de código. Por favor.

Mirate la Cara Oculta de Delphi 4. A pesar de ser ya una versión obsoleta, los principios y fundamentos que menciona Ian en su libro siguen siendo vàlidos hasta el día de hoy. Es un buen libro que recomiendo. Vete directo a la página 62... alli encontrarás lo que buscas.

Si tienes dudas no dudes en preguntar,
Saludos

[joHn je@N]

Delphius te agradezco que acudas a mi llamado. Lo voy a leer y te diré mis dudas si es que surgen algunas. Por lo pronto te doy las GRACIAS.

A lo que dice Lepe con override; e inherited habilita();
creo que es un claro ejemplo de la implementación del Polimorfismo en Delphi.

SALUDOS

[[Delphius]]

Empezado por joHn je@N

creo que es un claro ejemplo de la implementación del Polimorfismo en Delphi.

Eso mismo...
En la cara oculta vas a encontrar una sección entera dedicada a lo que hace POO, pero por lo que leo... puedo decir que manejas el concepto.

Saludos,