請問，在畫面中會有很多的paintbox元件，但paintbox元件會重疊在一起
有辦法在滑鼠點選後的x，y座標找出有n個元件，並且執行該n個元件的mouse event嗎？

 Hi,
用迴圈判斷每一個PaintBox，
x有無在這個範圍 PaintBox ->Left PaintBox ->Width
y有無在這個範圍 PaintBox ->Top PaintBox ->Height
都有就表示被點中了。

也許有更聰明的方式…

我知道的方式也只有這個，但不知道各位高手是否有其他的方式可以做偵測重疊元件

[code delphi]
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
ＯnMouseDown := ___TEST;
for I := 0 to ControlCount-1 do
begin
if not (Controls[I] is TPaintBox) then Continue;
TPaintBox(Controls[I]).ＯnMouseDown := ___TEST;
end;
end;

procedure TForm1.___TEST(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
I: Integer;
pt: TPoint;
L: TStringList;
begin
L := TStringList.Create;
try
GetCursorPos(pt);
pt := Self.ScreenToClient(pt);
for I := 0 to ControlCount-1 do
begin
if not (Controls[I] is TPaintBox) then Continue;
if not PtInRect(Controls[I].BoundsRect,pt) then Continue;
L.Add(Controls[I].Name);
end;
ListBox1.Items.Text := L.Text;
finally
FreeAndNil(L);
end;
end;


[/code]

編輯記錄

jow前輩出手便知有沒有,借花獻佛將jow前輩的方式改成BCB版本 ^^

.h

不好意思，請問FormCreate中的這兩行我編不過，要怎麼使用呢？
forbidden = ___TEST;
((TPaintBox*)Controls[I])->forbidden = ___TEST;

我用您的code再依 jow大的delphi的寫法改成OnMouseDown 就可以了！

void __fastcall TForm2::Button1Click(TObject *Sender)

編輯記錄

因為網站本身的關係 ｏnMouseDown會變成 OnMouseDown的字樣

原來如此，感謝兩位前輩！
===================引 用 taishyang 文 章===================
因為網站本身的關係 ｏnMouseDown會變成 OnMouseDown的字樣