| 以文本方式查看主題 - 曙海教育集團論壇 (http://www.rfoamep.cn/bbs/index.asp) -- Delphi程序設計 (http://www.rfoamep.cn/bbs/list.asp?boardid=76) ---- 關于拉幕程序的討論和源碼 (http://www.rfoamep.cn/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. |