zoukankan      html  css  js  c++  java
  • 如何用弹出窗口显示进度 回复 "嘿嘿嘿" 的问题


    问题来源: http://www.cnblogs.com/del/archive/2010/01/08/1642072.html#1820853

    准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Timer1: TTimer;
        procedure Button1Click(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses Gauges;
    
    var Gauge1: TGauge;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      frm: TForm;
    begin
      frm := TForm.Create(nil);
      frm.BorderStyle := bsSizeToolWin;
      frm.Width := 300;
      frm.Height := 80;
      frm.Position := poDesktopCenter;
        Gauge1 := TGauge.Create(frm);
        Gauge1.MinValue := 0;
        Gauge1.MaxValue := 100;
        Gauge1.Width := frm.ClientWidth - 40;
        Gauge1.Height := 20;
        Gauge1.Left := 20;
        Gauge1.Top := (frm.ClientHeight - Gauge1.Height) div 2;
        Gauge1.Parent := frm;
      Timer1.Interval := 100;
      Timer1.Enabled := True;
      frm.ShowModal;
      frm.Free;
      Timer1.Enabled := False;
    end;
    
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      if Assigned(Gauge1) then
      begin
        Gauge1.Progress := Gauge1.Progress + 1;
        if Gauge1.Progress = Gauge1.MaxValue then TForm(Gauge1.Parent).ModalResult := 1;
      end;
    end;
    
    end.
    

    运行效果图:



  • 相关阅读:
    数组的顺序存储表示
    CF538G Berserk Robot
    【LGR-077】洛谷 10 月月赛 I Div.1 && P6854 Tram
    [THUPC2019]找树
    CF536D Tavas in Kansas
    luogu「EZEC-4.5」子序列
    2020.8.7
    拉格朗日反演
    2020.8.6
    初赛复习
  • 原文地址:https://www.cnblogs.com/del/p/1731912.html
Copyright © 2011-2022 走看看