[r1se]

'TCount' wrote:

Понятно. Попробовал реализовать у себя – действительно, наблюдается неприятная смена фокуса на доли секунды.

Я попробовал принудительно установить действие закрытия, а также добавил анимацию, которую можете убрать)

Если оставите анимацию, то в Uses добавьте модуль sVclUtils.

Попробуйте:

procedure TForm11.PCCloseBtnClick(Sender: TComponent;TabIndex: Integer; var CanClose: Boolean; var Action: TacCloseAction);

begin

//PC – это Ваш PageControl

Action:=acaHide;//принудительно

If TabIndex>0 then begin//небольшая необязательная анимация

PrepareForAnimation(PC);

PC.ActivePageIndex:=Tabindex-1;

AnimShowControl(PC,100);//100 – анимация в мсек

end;

end;

Спасибо, помогло.

Только, я под С++ builder интерпретировал.

[r1se]

'TCount' wrote:

Привет. Как-то все смутно описано, примерчик бы этот. Если честно, я вообще не понял, в чем проблема)

На примере картинки:

Нажимая закрытие вкладки(1), анимация на долю секунды делает активной первый таб(2), после встает на предыдущий(3).

Необходимо, чтобы, при нажатие на кнопку закрытия вкладки(1), анимация вставала на предыдущию вкладку(3).

[Author]

Posts