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.
|