<dfn id="is4kg"></dfn>
    • 

    <ul id="is4kg"></ul>
    • <abbr id="is4kg"></abbr>
  • <ul id="is4kg"></ul>
    

    <bdo id="is4kg"></bdo>
    



    
    
    
      以文本方式查看主題
    
        
    
      -  曙海教育集團論壇  (http://www.hufushizhe.com/bbs/index.asp)
    
        --  Delphi程序設計  (http://www.hufushizhe.com/bbs/list.asp?boardid=76)
    
        ----  關于拉幕程序的討論和源碼  (http://www.hufushizhe.com/bbs/dispbbs.asp?boardid=76&id=2571)
    
        
    
          		
    
    
    
    
    
      --  作者：wangxinxin
    
        --  發布時間：2010-12-14 11:19:23
    
        
        --  關于拉幕程序的討論和源碼
    
        
    begin
    if Edit1.Text=\' then ShowMessage(\'請輸入文件地址\')
    else
    begin
    if Button2.Caption=\'開始\' then Button2.Caption:=\'暫停\'
    else Button2.Caption:=\'開始\';
    Timer1.Enabled:=not Timer1.Enabled;
    end;
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
    timer1.Enabled :=false;
    Currline:=0;
    Button2.Click;
    Button2.Caption:=\'暫停\';
    end;

    procedure TForm1.TrackBar1Change(Sender: TObject);
    begin
    Timer1.Interval:=TrackBar1.Position*5;
    Label2.Caption:=inttostr(Timer1.Interval);
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    if Bmp<>nil then Bmp.Free;
    end;

    procedure TForm1.Button4Click(Sender: TObject);
    begin
    close;
    end;


    procedure TForm1.Button7Click(Sender: TObject);
    begin
    FontDialog1.Execute;
    end;

    procedure TForm1.Button6Click(Sender: TObject);
    begin
    ColorDialog1.Execute;
    end;

    procedure TForm1.Button8Click(Sender: TObject);
    begin
    if ((strtoint(Edit2.Text)>=600) or (strtoint(Edit3.text)>=500) or ((strtoint(Edit5.Text)>=553) or (strtoint(Edit4.Text)>=630)))
    then showmessage(\'范圍超界\')
    else
    begin
    Panel1.Top:=strtoint(Edit2.text);
    Panel1.Left:=strtoint(Edit3.text);
    Panel1.Width:=strtoint(Edit4.text);
    Panel1.Height:=strtoint(Edit5.text);
    end;

    end;



    procedure TForm1.Button5Click(Sender: TObject);
    begin
    Panel1.Top:=0;
    Panel1.Left:=0;
    Panel1.Width:=Panel3.Width;
    Panel1.Height:=Panel3.Height;
    end;

    end.