старый код никто не менял, а новый пишется уже по новым стандартам

загляни в исходники fmx

Загляни в документацию эмбы

Господа, как бы вставить проверку на возможность разворачивания панели (expand), перед разворачиванием, чтобы иногда запретить? ) Ну раз уж задисабленные панели плохо сворачиваются. Ну кроме как в текст источника залезать. А то при обновлении и потереть недолго.
procedure TUniCustomPanel.H_JSOnCollapse(This: TJSObject; EventName: string;
 Params: TUniStrings);
var
 W, H : Integer;
begin
 JSAssign('sizeLocked', [False]);
 W := StrToIntDef(Params.Values['w'], -1);
 H := StrToIntDef(Params.Values['h'], -1);

 if (W <> -1) and (H <> -1) then
 begin
   Width := W;
   Height := H;
 end;

Или более вероятное изменение. Что вставить между collapse:=True и Enabled:=False, чтобы свертывание успело сработать?

Кажется нашла. И что на js писать? Есть примкнувшие к нему специалисты по вебу? )
function beforeexpand(p, animate, eOpts)
{

}

тебе, видимо, setTimeout() нужен

но, похоже, он не общепринятый. :)
народ больше за Create топит

А что это даст?

ну, я так понял, ты хочешь сделать collapse, а потом, через некоторое время, disable?

Ну да. Просто панель не сворачивается. При этих двух командах. Высота не успевает измениться

Странный тут народ собрался. упс ответил не на то сообщение, хотел на предыдущее

Не понимаю, как должно сработать, но попробую )

тогда, если делать на js, то setTimeout, позволяющий выполнить код через заданное время, выглядит полезным

все-все, затупила. Уже хотела делать регистрацию своих js-событий, голова там была)

Да, ладно, заработало!! Ну спасибо ))

Может школьникам, навроде меня, сгодиться ☺️
procedure UniPanelEnabled(APanel: TUniPanel; AOn: boolean);
var
 command_: string;
begin
 if AOn then
   command_ := 'setDisabled(false)'
 else
   command_ := 'setDisabled(true)';
 APanel.UniSession.AddJS('setTimeout(function(){'+APanel.JSName+'.'+command_+'}, 10);');
end;

может это не народ странный? 🙂

вполне может