以下的程式碼是什麼意思??!! |
答題得分者是:pceyes
|
hi9413
一般會員 發表:9 回覆:16 積分:5 註冊:2008-02-13 發送簡訊給我 |
我真的不懂!!!請大家多多幫忙!!!!!!
Procedure TForm1.Choice(var Rand:Integer) ; var r1,r2,randomNo:Integer; begin label1.Caption:=IntToStr(count); HideBoat; SelectAns:=''; AnsYN:=False; randomNo:=Random(randNum); While randomNo=0 do begin randomNo:=Random(randNum); end; if count=1 then begin r1:=randomNo; r2:=0; end else if count=2 then r2:=randomNo ; while r1=r2 do begin randomNo:=random(randNum) 1; r2:=randomNo; end; if Table1.FindKey([IntToStr(randomNo)]) then begin label2.caption:=table1.Fields[1].asString; SelectA.Caption:=Table1.FieldByName('ChoiceA').AsString; SelectB.Caption:=Table1.FieldByName('ChoiceB').AsString; SelectC.Caption:=Table1.FieldByName('ChoiceC').AsString; Answer:=Table1.FieldByName('Answer').AsString; end else ShowMessage('資料不存在'); end; procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.FormCreate(Sender: TObject); begin // rand1:=9; Answer:=''; SelectAns:=''; AnsYN:=True; BtnMove:=False; randNum:=27; hidetext; label1.Caption:=''; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin count:=1; Choice(rand1); end; procedure TForm1.imageaClick(Sender: TObject); begin playsound; if not AnsYN then begin imagea.Picture.LoadFromFile('z:\games\ani\boata.jpg'); SelectAns:='A'; AnsYn:=True; questionSel; end; end; procedure TForm1.imagebClick(Sender: TObject); begin Playsound; if not AnsYN then begin imageb.Picture.LoadFromFile('z:\games\ani\boatb.jpg'); SelectAns:='B'; AnsYn:=True; questionSel; end; end; procedure TForm1.ImagecClick(Sender: TObject); begin Playsound; if not AnsYN then begin imagec.Picture.LoadFromFile('z:\games\ani\boatC.jpg'); SelectAns:='C'; AnsYn:=True; questionSel; end end; |
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
hi9413
一般會員 發表:9 回覆:16 積分:5 註冊:2008-02-13 發送簡訊給我 |
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
hi9413
一般會員 發表:9 回覆:16 積分:5 註冊:2008-02-13 發送簡訊給我 |
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); ★ Procedure Choice(var Rand:Integer) ; ★ procedure BitBtn1Click(Sender: TObject); procedure imageaClick(Sender: TObject); procedure imagebClick(Sender: TObject); procedure ImagecClick(Sender: TObject); procedure ImagedClick(Sender: TObject); ProceDure HideBoat;★ procedure hidetext;★ procedure questionSel;★ Procedure playsound;★ procedure imagebMouseMove(Sender: TObject; Shift: TShiftState; X,★ Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ImagedMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ImagecMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure imageaMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image3Click(Sender: TObject); procedure Image4Click(Sender: TObject); 這些是什麼意思和作用啊?? |
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
procedure FormCreate(Sender: TObject); ★系統幫我們產生的程序
錄自delphi 7.0 Help(請按F1) Delphi syntax: C syntax: Description Initializes the dialog when it is first created. procedure FormCreate(Sender: TObject); void __fastcall FormCreate(System::TObject* Sender); Applications should not call FormCreate. It initializes the detail window so that the Details button works correctly. Delphi syntax: C syntax: Description A control calls MouseMove in response to any of the Windows mouse-move messages (WM_MOUSEMOVE), decoding the message parameters into the shift-key state and position, which it passes in the Shift, X, and Y parameters, respectively. As the mouse cursor moves across a control, this method is called repeatedly. Each time it is called, it is with the new coordinates that reflect the continuous path of the mouse cursor across the screen real estate covered by the control's visual representation.
------
努力會更接近成功 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |