Firemonkey iOS TExpanderButton onclick

Я пытаюсь добавить пользовательское поведение в TExpander. В основном я пытаюсь добиться следующего: у меня есть несколько TExpanders в моей форме. Когда пользователь разворачивает один из этих TExpanders, все остальные TExpanders должны быть свернуты.


ios delphi firemonkey delphi-xe5 firemonkey-fm3
person Christo    schedule 14.10.2013    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Самый простой способ сделать это — обработать событие OnResize для TExpander, а затем в этом событии проверить свойство IsExpanded каждой из других панелей TExpander и установить для них значение False.

person ByteArts    schedule 15.05.2014