SendMessage 함수를 이용한 메세지 전송

2012.01.05 19:01

관리자 조회 수:18387

const 
  MY_MESSAGE = WM_USER + 4242; 
  
type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    
procedure Button1Click(Sender: TObject); 
    // Handler that receive the Message 
    
procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE; 
  end; 
var 
  Form1: TForm1; 
implementation 
{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  txt: string; 
begin 
  txt := 'Hello World'; 
  SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt))); 
end; 

procedure TForm1.MessageReceiver(var msg: TMessage); 
var 
  txt: PChar; 
begin 
  txt := PChar(msg.lParam); 
  msg.Result := 1; 
  ShowMessage(txt); 
end; 
end. 
이 게시물을
Profile
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 22115
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 20659
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 22701
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 28463
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 29722
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 25071
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 46008
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 181771
23 Delphi XE2에서 맥 애플리케이션을 만들어 보자 박병일 2012.01.18 13073
22 델파이 XE2로 아이폰앱 만들기 박병일 2012.01.18 13076
21 델파이 XE2로 만든 아이폰 앱 - TicTacToe file 박병일 2012.01.17 14012
20 2012년 소프트웨어 트랜드 세미나 박병일 2012.01.12 7628
19 [링크]안드로이드를 위한 데이터 스냅 서버 박병일 2012.01.12 8450
18 VCL Style Util 박병일 2012.01.11 10305
17 32개의 Rad Studio 비디오 튜토리얼 박병일 2012.01.07 3843
16 델파이 에서 안드로이드로 박병일 2012.01.06 6214
» SendMessage 함수를 이용한 메세지 전송 관리자 2012.01.05 18387
14 델파이 XE2의 Namespace 문제 관리자 2011.12.22 5490
13 RichEdit 에서 라인과 칼럼을 알아내기 박병일 2011.12.22 6747
12 PrintDialog 를 사용하지 않고 프린트 하기 박병일 2011.12.22 6187
11 Image 에 글자 출력하기 박병일 2011.12.22 7312
10 Form에 있는 콤포넌트를ListView 로 나타내기 박병일 2011.12.22 5609
9 DBGrid 에서 GraphicsField 보여주기 박병일 2011.12.22 5788
8 DBGrid 에서 Cell 모양의 색깔 바꾸기 박병일 2011.12.22 11308
7 ComboBox에서 Focus 가 올때 자동으로 펼쳐 내리기 박병일 2011.12.22 11472
6 CD-ROM 열고 닫기 박병일 2011.12.22 44783
5 Alt -F4 로 종료 못하게 하기 박병일 2011.12.22 10857
4 Hotfix 2 for C++Builder XE2, Delphi XE2 and RAD Studio XE2 is now available 박병일 2011.12.22 5864
쓰기
태그