윤티 wrote:

> wndproc의 사용법을 알고싶어요



unit Unit1;



interface



uses

// Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

private

{ Private declarations }

public

procedure Wndproc(var KooMessage: Tmessage); override;

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Wndproc(var KooMessage: Tmessage);

begin

inherited WndProc(KooMessage);



if KooMessage.Msg = WM_LBUTTONDOWN then

ShowMessage('WM_LBUTTONDOWN 메세지가 발생했습니다.');

end;



end.



그럼, 즐거운 프로그래밍 하세요~