void __fastcall TForm1::FormCreate(TObject *Sender)
{
KeyPreview=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == VK_LBUTTON)
{
Image1->Visible=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key == VK_LBUTTON)
{
Image1->Visible=false;
}
}
//---------------------------------------------------------------------------
a npr. kada stavim umjesto lijevog klika da mi bude neko drugo dugme, npr. Key==VK_ESCAPE, onda sve radi normalno!!!??
[Ovu poruku je menjao fucking voodoo dana 13.08.2005. u 17:16 GMT+1]
waiting for us,
and it ain't no man...