Delphi组件与属性编辑器

    procedure TdsWaitDialogEx.SetProgressStep(const Value: integer);
    begin
      if FProgressStep=value then exit;
      FProgressStep := Value;
    end;

    procedure TdsWaitDialogEx.SetProgressPos(const Value: integer);
    begin
      if FProgressPos=value then exit;
      FProgressPos := Value;
      if FProgressMin>FProgressPos then FProgressPos:=FProgressMin;
      if FProgressMax<FProgressPos then FProgressPos:=FProgressMax;
      if not (showProgress in FOptions) then exit;
      if assigned(FDlgForm) then
      begin
        FDlgForm.Gauge1.Progress:=FProgressPos;
        FDlgForm.Update ;
        DoPosChange;
      end;
    end;

    procedure  TdsWaitDialogEx.ProgressStepIt;
    begin
      if FProgressPos + FProgressStep>FProgressMax then
        FProgressPos:=0
      else
        FProgressPos := FProgressPos + FProgressStep;
      if FProgressMin>FProgressPos then FProgressPos:=FProgressMin;
      if FProgressMax<FProgressPos then FProgressPos:=FProgressMax;
      if not (showProgress in FOptions) then exit;
      if assigned(FDlgForm) then
      begin
        FDlgForm.Gauge1.Progress:=FProgressPos;
        FDlgForm.Update ;
        DoPosChange;
      end;
    end;

    procedure TdsWaitDialogEx.SetOnFormHide(const Value: TCloseEvent);
    begin
      FOnFormHide := Value;
      if FDlgForm <> nil then
        FDlgForm.UserFormClose := Value;
    end;

    procedure TDlgWaitEx.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      while GetTickCount < FCloseAfter do
        Application.ProcessMessages;
      if Assigned(FUserFormClose) and (Action=caHide) then
        FUserFormClose(Self, Action);
    end;

    end.

上一页  [1] [2] [3] [4] [5] [6] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18