код размещен на уже созданной кнопке, весь код вот:
PHP код:
var
х : TFreeButton;
begin
inc(schet_id);
х := TFreeButton.Create(Self);
х.Parent := Self;
х.Moving := true;
х.Name := 'BitBtn'+IntToStr(schet_id);
х.Caption := 'Кнопка';
х.PopupMenu:= PopupMenu1;
Я проверял, уже на созданном в design time компоненте всё работает, а при создании в run time не работает, помоему дело в самом компоненте. Если что среда Delphi 7.