他趴在我两腿中间吸我视频_久久综合色之久久综合_久久久久无码精品国产_欧美丰满大乳高跟鞋_国产精品伦一区二区三级视频_综合色就爱涩涩涩综合婷婷_国产人妻人伦精品熟女_人人妻人人澡人人爽久久AV_欧洲美女与动zooz_国产免费午夜A无码V视频

以文本方式查看主題

-  曙海教育集團論壇  (http://www.mikehunterok.com/bbs/index.asp)
--  Delphi程序設(shè)計  (http://www.mikehunterok.com/bbs/list.asp?boardid=76)
----  關(guān)于拉幕程序的討論和源碼  (http://www.mikehunterok.com/bbs/dispbbs.asp?boardid=76&id=2571)

--  作者：wangxinxin
--  發(fā)布時間：2010-12-14 11:19:23
--  關(guān)于拉幕程序的討論和源碼

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.