塑料排水板-植草格-土工膜厂家-泰安东诺工程材料有限公司

以文本方式查看主題

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