이런식으로...

TShiftState()<<ssShift




void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Panel1MouseDown(Panel1,mbLeft, TShiftState()<<ssShift    ,rand()%1000,rand()%768);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    ShowMessage(IntToStr(X));
}
//---------------------------------------------------------------------------


그럼....




김성준 님이 쓰신 글 :
: void __fastcall TForm1::Button21MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
:
:
: 요기로 인자를 넘겨주려구 하는데요
:
: Button21MouseDown(Button23, 0, 0 , 0, 0);
:
: 이렇게 했드니 Cannot convert 'int' to 'TShiftState' 이런 에러가 발생을 하더군요..
:
: 'TShiftState' 부분을 어덯게 처리해야 할까요?
:
:
:
: void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
: {
:     TShiftState tstat = new TShiftState();
:     if(Msg.message == WM_KEYDOWN)
:     {
:         switch(Msg.wParam)
:         {
:             case VK_LEFT:
:                 Button21MouseDown(Button23, 0, 0 , 0, 0);
:             break;
:             case VK_RIGHT:
:                 Button21MouseDown(Button24, 0, tstat, 0, 0);
:             break;
:             case VK_UP:
:                 Button21MouseDown(Button21, 0, tstat, 0, 0);
:             break;
:             case VK_DOWN:
:                 Button21MouseDown(Button22, 0, tstat, 0, 0);
:            break;
:         }
:     }
:     else if(Msg.message == WM_KEYDOWN)
:     {
:         switch(Msg.wParam)
:         {
:             case VK_LEFT:
:                 Button21MouseUp(Button23, 0, tstat, 0, 0);
:             break;
:             case VK_RIGHT:
:                 Button21MouseUp(Button24, 0, tstat, 0, 0);
:             break;
:             case VK_UP:
:                 Button21MouseUp(Button21, 0, tstat, 0, 0);
:             break;
:             case VK_DOWN:
:                 Button21MouseUp(Button22, 0, tstat, 0, 0);
:            break;
:         }
:     }
: }
:
: 이렇게 하려구 하는데 ㅜ.ㅜ