tntedi2lab2bb2jvsbdemou.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

unit TntEdi2Lab2BB2JvSBDemoU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TntStdCtrls, TntStdCtrls2, Buttons, TntButtons,
  TntButtons2, TntJvExControls, TntJvSpeedButton;

type
  TFTntEdi2Lab2BB2JvSBDemo = class(TForm)
    SB_CommuteBiDiMode: TTntJvSpeedButton;
    TntBitBtn21: TTntBitBtn2;
    TntEdit: TTntEdit2;
    TntLabel1: TTntLabel2;
    TntLabel2: TTntLabel2;
    procedure TntEditKeyPressW(Sender: TObject; var Key: WideChar);
    procedure SB_CommuteBiDiModeClick(Sender: TObject);
  end;

var
  FTntEdi2Lab2BB2JvSBDemo: TFTntEdi2Lab2BB2JvSBDemo;

implementation

{$R *.dfm}

procedure TFTntEdi2Lab2BB2JvSBDemo.TntEditKeyPressW(Sender: TObject; var Key: WideChar);
begin
  Key := WideChar (Word(Key) + 1);
end;

procedure TFTntEdi2Lab2BB2JvSBDemo.SB_CommuteBiDiModeClick(Sender: TObject);
begin
  if  Application.BiDiMode = bdRightToLeft  then  begin
    Application.BiDiMode := bdLeftToRight;
    TntEdit.Alignment := taLeftJustify;
  end
  else  begin
    Application.BiDiMode := bdRightToLeft;
    TntEdit.Alignment := taRightJustify;
  end;
end {SB_CommuteBiDiModeClick};

end.