delphi - tabcontrol Delphi可以激发 monkey TTabControl复制 VCL TPageControl.OnChanging 事件

  显示原文与译文双语对照的内容
89 1

我正在运行 Delphi Dx

在from的Delphi TPageControl中有一个onChanging事件,你可以以在它的中停止页控制,从而更改选项卡。

procedure TForm1.pgc1Changing(Sender: TObject; var AllowChange: Boolean);
begin
 if MessageDlg('do you want to change tab?', mtConfirmation, [mbyes, mbno], 0, mbNo) = mrno then
 AllowChange := false;
end;

是否有 Delphi Firemonkey TTabControl复制这里方法的方法?e.g.
如果你有两个选项卡并点击另一个选项卡弹出一个问题"你想要更改选项卡"'?
如果单击 no nothing单击 happens yes然后单击 changes

时间:原作者:0个回答

...