PostMessage로 자기자신 호출하기

문제점 : Form에서 Showmodal로 화면을 열었을시 Statusbar 컨트롤이 안됨

 

상단 선언

const
  MY_MESSAGE = WM_USER + 101;

타폼에서 사용시 동일하게 적어주면 됨

 

자기 자신 호출(Formshow에서)

마지막은 integer로

PostMessage(Handle, MY_MESSAGE, 0, 1);

 

procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;

 

procedure Form1.MessageReceiver(var msg: TMessage);
var
    itest : integer;
begin
    itest := msg.lParam;   
end;

 

itest ->> 1

 

출처: https://pitroom.tistory.com/4 [Room:티스토리]