zasto ovo nece da radi na lijevi klik?

zasto ovo ne radi:


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!!!??

Potpis

there's something out there
waiting for us,
and it ain't no man...

Zato sto koristis dogadjaj OnKeyDown.

Koristi OnMouseClick pa probaj.

Potpis

Sad mu nije nista, ubio si ga k'o zeca...

Kao prvo...



Nikad, nikad i nikad u BCB ne koristi FormCreate i FormDestroy. Umesto njih
koristi konstruktor, koji je vec raspoloziv i destruktor, moraces da ga napravis.

Zasto? Iako je cak i BCB Help prepun FormCreate/FormDestroy to je zbog toga
sto su Help prevodili sa Delpji-ja.

U BCB, FormCreate moze biti pozvan pre konstruktora, a FormDestroy posle
destruktora sto je nedozvoljeno!



Postoje dogadjaji. FormMouseUp, FormMouseDown, FormMouseMove.

Dakle ti si koristio dogadjaje za tastaturu a ne za misa, pa je i logisno da ti
program ne radi...

Ne. treba koristiti OnMouseDown, a ne OnMouseClick. OnMouseClick niti ima
sve potrebne propratne informacije (X,Y polozaj, Shift...), a kod mnogih kontrola
OnClick se poztize i sa SPACE i sl. Dakle OnClick je kontekstni dogadjaj...