Здравствуйте. Подскажите, как лучше реализовать следующее:
Есть наследник от TShape:
Код:
TKletka=class(TShape)
protected
color:TKletkaColor;
x,y:Byte;
procedure SetBrushColor;
public
constructor Create(AOwner:TComponent;new_x,new_y:Byte;new_color:tKletkaColor;new_top,new_left,size:integer);
private
procedure WMLButDown(var Msg : TWMMouse); message WM_LBUTTONDOWN;
end;
Далее, пусть есть форма (или другой компонент), которая имеет массив элементов класса TKletka. Хочется следующее. При нажатии мыши (в процедуре WMLButDown) передать форме(или другому владельцу) некоторые свойства (x,y) этого элемента в виде события. Вобщем сделать так, что бы форма знала по какой клетке кликнул пользователь. Как это сделать наиболее корректно с точни зрения ООП?
Спасибо.