<!--CodeS-->
// 문제및 질문 요점은 맨 아래 부분에 있습니다.
// Form1에대한 소스
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, AdvMenus, AdvToolBtn, ExtCtrls, AdvPanel, StdCtrls;

type
  TForm1 = class(TForm)
    { 중략 여러가지 폼포넌트들...}
    Button1: TButton;
    { 중략 여러가지 procedure선언 }
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
<!--CodeE-->
------------------------------------------------------------------------------
<!--CodeS-->
// Unit2에대한 소스
unit Unit2;

interface

uses Unit1;

type
  BTN_ENABLED = Class (TForm1)
    procedure Button1Click(Sender: TObject);
  public
    procedure Mbtn_Mode(Mode : String); virtual;
  end;

var
  uBTN_ENABLED : BTN_ENABLED;
implementation

procedure BTN_ENABLED.Button1Click(Sender: TObject);
begin
  inherited;
  showmessage('Unit2에서 정의한 메시지!');
end;
<!--CodeE-->
---------------------------------------------------------------------------
이케해서 Form1에 있는 버튼의 OnClick를 Unit1이 아닌 Unit2에서 실행할수 있도록
코딩을 했는데 실행은 되는데 메시지가 나오지를 않아여.. 뭐가 문제 일까여! ㅡ.,ㅡ
고수님들은 조건과 답변을 기다리겠습니다. 즐건 하루 보네시구여!