unitposset.pas

一个背单词程序。是我闲着没事做的。 给大家看看

unit UnitPosSet;

interface

uses
  Windows,SysUtils, Forms, ExtCtrls, StdCtrls, ComCtrls, Classes, Controls,
  Buttons,Messages;

type
  TFrmPosSet = class(TForm)
    Panel1: TPanel;
    TrackBar1: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    Procedure CreateParams(Var Params: TCreateParams); Override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPosSet: TFrmPosSet;

implementation

uses UnitMain;

{$R *.dfm}

Procedure TFrmPosSet.CreateParams(Var Params:TCreateParams);
Begin
  inherited CreateParams( Params);
  with params do
  begin
    ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
    WndParent :=FrmMain.Handle;
  end
End;

procedure TFrmPosSet.FormShow(Sender: TObject);
begin
  left:=frmmain.left;
  top:=FrmMain.Top+FrmMain.Height;
  //Width:=FrmMain.Width;
end;
function trunk(value:double):double ;
begin
   Result:=round(value*100)/100;
end;

procedure TFrmPosSet.TrackBar1Change(Sender: TObject);
var
postype:String;
dispvalue,basevalue:Double;
begin
  postype :=Label1.Caption;
  if postype='透明度:' then
  begin
    dispvalue:=trunk(((TrackBar1.Position-55)/155)*100);
    Label2.Caption:=FloatToStr(dispvalue)+'%';
    FrmMain.AlphaBlendValue:=TrackBar1.Position ;
  end else if postype='播放间隔:' then
  begin
    FrmMain.Timer1.Interval:=TrackBar1.Position;
    dispvalue:=trunk(TrackBar1.Position/1000);
    Label2.Caption:=FloatToStr(dispvalue)+'秒';
  end else if postype='发音速度:' then
  begin
    FrmMain.SpeechEx.SpeakSpeed(TrackBar1.Position);
    dispvalue:=trunk(((TrackBar1.Position-30)/170)*100);
    Label2.Caption:=FloatToStr(dispvalue)+'%';
  end else if postype='播放进度:' then
  begin
    FrmMain.RSIndex:=TrackBar1.Position;
    Label2.Caption:=inttostr(TrackBar1.Position)+'/'
                    +inttostr(FrmMain.RSCount)+'个';
  end;

end;

procedure TFrmPosSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=cafree;
  FrmPosSet:=nil;
end;

procedure TFrmPosSet.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

end.