Delphi程序设计-回复帖子[曙海教育集团论坛]项目外包开发咨询

曙海教育集团论坛 → 开发语言培训专区 → Delphi程序设计 → 回复帖子

回复帖子

用户名：

*您没有注册？

密码：

*忘记论坛密码？标题采用“回复：XXX....”

主题标题：

*不得超过 200 个汉字

当前心情

将放在帖子的前面

部分图片由QQ授权提供

发帖表情

内容

高级设置：

签名：不显示显示匿名回帖通知：不通知邮件通知短信通知邮件和短信通知

主题新回顾(发布时间：2010-12-14 11:19:23)
-- 作者：wangxinxin -- 关于拉幕程序的讨论和源码 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.

主题新回顾(发布时间：2010-12-14 11:19:23)

-- 作者：wangxinxin
-- 关于拉幕程序的讨论和源码

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.