unitinsertchar.pas

类似于写字板,但此功能强大,可以扩展到许多地方

unit UnitInsertChar;

interface

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

type
  TFormTable = class(TForm)
    ButtonInsert: TButton;
    ButtonCancel: TButton;
    GridChar: TStringGrid;
    Label1: TLabel;
    LabelShow: TLabel;
    procedure ButtonInsertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GridCharSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure FormShow(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormTable: TFormTable;

implementation

uses UNotePad;

{$R *.DFM}

procedure TFormTable.ButtonInsertClick(Sender: TObject);
begin
  with NotePadForm.RichEdit,GridChar do
    begin
      SelStart:=SelStart+SelLength;
      NotePadForm.RichEdit.SelText:=Cells[Col,Row];
    end;
end;

procedure TFormTable.FormCreate(Sender: TObject);
const
  SpecialStrings:array[0..129] of ShortString=
   (
     '①','②','③','④','⑤','⑥','⑦','⑧','⑨','⑩',
     '⑴','⑵','⑶','⑷','⑸','⑹','⑺','⑻','⑼','⑽',
     '⑾','⑿','⒀','⒁','⒂','⒃','⒄','⒅','⒆','⒇',
     '∧','∨','∫','∮','∴','∵','∷','∽','≈','≌',
     '≒','≠','≡','≤','≥','≦','≧','⊥','§','∝',
     '⊿','■','□','▲','△','◆','◇','▼','▽','々',
     '○','◎','●','◢','◣','◤','◥','★','☆','☉',
     '♂','♀','¤','§','±','·','×','Δ','Π','Ρ',
     'Σ','Φ','Ψ','Ω','‰','※','℅','℉','№','℡',
     'ⅰ','ⅱ','ⅲ','ⅴ','ⅳ','ⅵ','ⅶ','ⅷ','ⅸ','ⅹ',
     'Ⅰ','Ⅱ','Ⅲ','Ⅳ','Ⅴ','Ⅵ','Ⅶ','Ⅷ','Ⅸ','Ⅹ',
     'Ⅺ','Ⅻ','←','↑','→','↓','↖','↗','↘','↙',
     '《','》','『','』','〖','〗','【','】','「','」'
  );
var
  i,j,k:Integer;
begin
  k:=0;
  with GridChar do
    for i:=0 to RowCount-1 do
      for j:=0 to ColCount-1 do
      begin
        Cells[j,i]:=SpecialStrings[k];
        k:=K+1;
      end;
end;

procedure TFormTable.GridCharSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  LabelShow.Caption:=GridChar.Cells[ACol,ARow];
end;

procedure TFormTable.FormShow(Sender: TObject);
begin
  SetWindowWord(Handle,GWL_HWNDPARENT,NotePadForm.Handle);
end;

procedure TFormTable.ButtonCancelClick(Sender: TObject);
begin
  Hide;
end;

end.