pagecontrol 取消页面切换

2016-04-12 05:30:21 526 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Lazarus跨平台开发实战：UTF-8编码、布局与事件处理避坑指南跨平台GUI开发的核心挑战在于处理不同操作系统间的底层差异，这涉及字符编码、事件循环和界面渲染等多个技术层面。在字符编码方面，现代应用普遍采用UTF-8标准以实现国际化支持，但Windows系统内核使用UTF-16，这导致在跨平台交互时需进行编码转换，尤其是在与命令行工具等外部程序交互时。在界面布局上，不同平台的窗口管理器和部件集（如GTK2、Cocoa）对控件尺寸计算和事件分发机制存在差异，可能引发布局错位或事件重复触发等问题。这些底层原理的差异直接影响应用的稳定性和用户体验。本文以Lazarus升级为例阅读详情

如何处理根据不同情况判断，取消pagecontrol的tabsheet切换？

...全文

C++Builder实战：从零构建带生产管理的进销存桌面系统进销存系统是企业资源管理的核心，它通过整合采购、销售、库存等业务流程，实现数据流与业务流的统一，是提升运营效率、保障数据准确性的关键技术。其原理在于通过严谨的数据库设计（如单据头-明细结构、库存流水表）和事务控制，确保业务操作（如入库、出库）的原子性与数据一致性。对于中小型制造或商贸企业，一个定制化、高性能的进销存系统能精准匹配其独特的生产BOM（物料清单）管理和审批流程，突破通用软件或Excel+Access等简易方案的瓶颈。本文以C++Builder这一经典RAD工具为例，深入探讨如何利用其高效的VCL 阅读详情

xiangzi8

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lyhoo163 2016-04-13

打赏
举报

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  OnChange:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  OnChange := True;                  // 开启Page
  PageControl1.ActivePageIndex:=0;   // 进入第1面
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  if onChange then
  begin
    AllowChange:=True;               // 开启
  end
  else begin
    AllowChange:=False;              // 锁住
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=1;   // 进入第2面
  OnChange := False;                 // 锁住Page
end;

end.

lyhoo163 2016-04-13

打赏
举报

1、设置一全局变量 var onChange:Boolean; 2、OnChenging事件中 if onChange then begin AllowChange:=True; // 开启 end else begin AllowChange:=False; // 锁住 end; 3、按按钮事件,设置进入页面和是否锁住Page （1） PageControl1.ActivePageIndex:=1; // 进入第2面 OnChange := False; // 锁住Page （2） OnChange := True; // 开启Page PageControl1.ActivePageIndex:=0; // 进入第1面 [delphi=code] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet4: TTabSheet; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure PageControl1Changing(Sender: TObject; var AllowChange: Boolean); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; OnChange:boolean; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin OnChange := True; // 开启Page PageControl1.ActivePageIndex:=0; // 进入第1面 end; procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if onChange then begin AllowChange:=True; // 开启 end else begin AllowChange:=False; // 锁住 end; end; procedure TForm1.Button2Click(Sender: TObject); begin PageControl1.ActivePageIndex:=1; // 进入第2面 OnChange := False; // 锁住Page end; end. [/code]

doloopcn 2016-04-12

打赏
举报

procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if (你的判断条件) then AllowChange:=True else AllowChange:=Flase; end;

xiangzi8 2016-04-12

打赏
举报

根据不同条件阻止tabsheet切换

pagecontrol 取消页面切换

相关推荐