unit fMethodPointerExam;

interface

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

type
  TProcedurePointerType = procedure (Value : Integer);
  TMethodPointerType = procedure (Value : Integer) of object;

  TMethodPointerExam = class
    procedure ShowValue(Value : Integer);
  end;

  TForm1 = class(TForm)
    btnExecProc: TButton;
    btnExecMethod: TButton;
    procedure btnExecProcClick(Sender: TObject);
    procedure btnExecMethodClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ProcShow : TProcedurePointerType;
    MethodShow : TMethodPointerType;
  end;

var
  Form1: TForm1;

procedure ShowValue(Value : Integer);

implementation

{$R *.DFM}

procedure ShowValue(Value : Integer);
begin
  Application.MessageBox(PChar('Value = ' + IntToStr(Value)),
                         PChar('ÇÁ·Î½ÃÀú Æ÷ÀÎÅÍ'),
                         MB_ICONINFORMATION + MB_OK);
end;

{ TMethodPointerExam }

procedure TMethodPointerExam.ShowValue(Value: Integer);
begin
  Application.MessageBox(PChar('Value = ' + IntToStr(Value)),
                         PChar('¸Þ¼Òµå Æ÷ÀÎÅÍ'),
                         MB_ICONINFORMATION + MB_OK);
end;

procedure TForm1.btnExecProcClick(Sender: TObject);
begin
  Self.ProcShow := ShowValue;
  Self.ProcShow(1004);
  // Self.MethodShow := ShowValue;
  // À§¿Í °°ÀÌ ´ëÀÔÇϸé ÄÄÆÄÀÏ ½Ã Çü ȣȯ ¿¡·¯°¡ ³­´Ù.
end;

procedure TForm1.btnExecMethodClick(Sender: TObject);
var
  TempClass : TMethodPointerExam;
begin
  TempClass := TMethodPointerExam.Create;
  try
    Self.MethodShow := TempClass.ShowValue;
    Self.MethodShow(1004);
    // Self.ProcShow := TempClass.ShowValue;
    // À§¿Í °°ÀÌ ´ëÀÔÇϸé ÄÄÆÄÀÏ ½Ã Çü ȣȯ ¿¡·¯°¡ ³­´Ù.
  finally
    TempClass.Free;
  end;
end;

end.

type
  TMouseEvent = procedure(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer) of object;
  TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState;
    X, Y: Integer) of object;
  TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean) of object;
  TDragDropEvent = procedure(Sender, Source: TObject;
    X, Y: Integer) of object;

  TControl = class(TComponent)
  private
    { »ý·« }
    FOnMouseDown: TMouseEvent;
    FOnMouseMove: TMouseMoveEvent;
    FOnMouseUp: TMouseEvent;
    FOnDragDrop: TDragDropEvent;
    FOnDragOver: TDragOverEvent;
    FOnResize: TNotifyEvent;
    //  TNotifyEvent = procedure(Sender: TObject) of object;
    //  TNotifyEvent ÇüÀº classes.pas¿¡ Á¤ÀǵǾî ÀÖ´Ù.
    FOnClick: TNotifyEvent;
    FOnDblClick: TNotifyEvent;
    { »ý·« }
  protected
    { »ý·« }
    property OnClick: TNotifyEvent
      read FOnClick
      write FOnClick
      stored IsOnClickStored;
    property OnDblClick: TNotifyEvent
      read FOnDblClick
      write FOnDblClick;
    property OnDragDrop: TDragDropEvent
      read FOnDragDrop
      write FOnDragDrop;
    property OnDragOver: TDragOverEvent
      read FOnDragOver
      write FOnDragOver;
    property OnMouseDown: TMouseEvent
      read FOnMouseDown
      write FOnMouseDown;
    property OnMouseMove: TMouseMoveEvent
      read FOnMouseMove
      write FOnMouseMove;
    property OnMouseUp: TMouseEvent
      read FOnMouseUp
      write FOnMouseUp;
    property OnResize: TNotifyEvent
      read FOnResize
      write FOnResize;
  public
    { »ý·« }
  published
    { »ý·« }
  end;

type
  TMyButton = class(TButton)
  protected
    procedure Click; override;
    // Click ¸Þ¼Òµå ¿À¹ö¶óÀ̵å
  end;

{ »ý·« }

procedure TMyButton.Click;
begin
  // ¿ø·¡ ¸Þ¼Òµå ½ÇÇà
  inherited Click;
  // °æ°íÀ½ Ãâ·Â
  MessageBeep(0);
end;

type
  TdpbImeInputMode = ( dimHangul, dimEnglish );
  TdpbImeInputModeChange = procedure (Sender : TObject;
    ImeInputMode : TdpbImeInputMode) of object;

unit dpbEdit;

{ dpb = Delphi Programming Bible }

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,
  { IME °ü·Ã ·çƾ }
  Imm;

type
  TdpbImeInputMode = ( dimHangul, dimEnglish );
{ À̺¥Æ® Çڵ鷯°¡ »ç¿ëÇÒ ¸Þ¼Òµå Çü }
  TdpbImeInputModeChange = procedure (Sender : TObject;
    ImeInputMode : TdpbImeInputMode) of object;

  TdpbEdit = class(TCustomEdit)
  private
    { Private declarations }
    FOnImeInputModeChange : TdpbImeInputModeChange;

    function GetImeInputMode: TdpbImeInputMode;
    procedure DoImeInputModeChange;
  protected
    { Protected declarations }
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  public
    { Public declarations }
  published
    { Published declarations }
    property OnImeInputModeChange : TdpbImeInputModeChange
      read FOnImeInputModeChange
      write FOnImeInputModeChange;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DPB', [TdpbEdit]);
end;

function TdpbEdit.GetImeInputMode: TdpbImeInputMode;
var
  dwSentence : DWORD;
  dwConversion : DWORD;
  IMC : HIMC;  { IME ÇÚµé }
begin
  IMC := ImmGetContext(Handle);
  ImmGetConversionStatus(IMC, dwConversion, dwSentence);
  if (dwConversion and IME_CMODE_HANGUL) = IME_CMODE_HANGUL then
    Result := dimHangul
  else
    Result := dimEnglish;
  ImmReleaseContext(Handle, IMC);
end;

{ TdpbEdit }
procedure TdpbEdit.DoImeInputModeChange;
begin
  if Assigned(FOnImeInputModeChange) then
    FOnImeInputModeChange(Self, GetImeInputMode);
end;

procedure TdpbEdit.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited KeyDown(Key, Shift);
  if Key = VK_HANGUL then DoImeInputModeChange;
end;

end.