Что я делаю не так
Есть потомок класса 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;
Ничего не происходит. Где опозорился?
