ushowwin.pas

来自「Delphi编写的Cs1.6中文输入软件 支持CS游戏全屏下的中文输入；但只支」· PAS 代码 · 共 49 行

unit UShowWin;

interface

uses
  Classes, Controls, Sysutils, Windows;

type
  TShowWin = class(TThread)
  private
    procedure ShowInput;
  protected
    procedure Execute; override;
  end;

implementation

uses UKeyInput;

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure ShowWin.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ ShowWin }

procedure TShowWin.Execute;
begin
  Synchronize(ShowInput);
end;

procedure TShowWin.ShowInput;
var
  sF:TStringList;
begin
  FreeOnTerminate:=True;

  Terminate;
end;

end.