[Kpyc]

Хочу описать свою процедуру при левом клике на Shape, как это провернуть?

[angvelem]

Обработать событие OnMouseDown.

[Kpyc]

Что я делаю не так
Есть потомок класса Shape:

Код:

type
  TMyRecord = class(TShape)
  public
    address: string;
    phone: integer;
    worktime: string;
    production: string;
    myimage: TImage;
end;

Он в нужный момент создается и отображается на форме. Еще описал такую штуку:

Код:

procedure TMyRecordMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  showmessage('1');
end;

Ничего не происходит. Где опозорился?

[angvelem]

Ну раз создаётся потомок от TShape, то событие OnMouseDown уже присутствует и создавать своё не требуется или использовать override.