在鼠标点击处添加图标，谢谢各位了。

[chuyantian]

目前已经做好的是：Panel1在最下面，左边是Panel3,右边是Panel2,中间是个Splitter,这样form被我分成可以改变大小的左右两块；我在Panel3上放了一个ComboBox;在Panel2上放了个Image；
下一步想做的是，在Image上点击鼠标，根据ComboBox的选择，添加不同的小图标。
谢谢各位！

[samchoy]

void __fastcall TForm1::Image1Click(TObject *Sender)
{
switch (ComboBox1->ItemIndex)
{
case 0:
Image1->Picture->LoadFromFile("0.ico");
break;
case 1:
...
default:
Image1->Picture = NULL;
}
}
//---------------------------------------------------------------------------

[Lonelywolf1899]

根据ComboBox的ItemIndex......

[chuyantian]

我可能没说清楚，不是改变。而是每点击一次鼠标，在点击处添加一个新的小图标。

[kmfangxun]

void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
TIcon *mico=new TIcon;
switch (ComboBox1->ItemIndex)
{
case 0:
mico->LoadFromFile("0.ico");
Image1->Canvas->Draw(X,Y,mico);
break;
case 1:
...
default:

}

delete mico;

}
//---------------------------------------------------------------------------