delphi 小程序

可源冲搜以定义一个全局雹历变量用来记录正确的数目,并在窗体创建时赋初始值:

procedure TForm1.FormCreate(Sender: TObject)

begin

i := 0

end

//随机判握生成数:

procedure TForm1.Button1Click(Sender: TObject)

var z,j : integer

begin

Randomize

j := random(1000)

z := random(1000)

label1.Caption := inttostr(j)

label2.Caption := inttostr(z)

end

//当按下enter键时判断答案是否正确:

procedure TForm1.Edit1KeyPress(Sender: TObjectvar Key: Char)

begin

if key = #13 then

begin

if edit1.Text =inttostr(strtoint(label1.Caption) + strtoint(label2.Caption)) then

begin

label3.Caption :='タ絋'

i := i+1

edit2.Text := inttostr(i)

end

else

label3.Caption := ''

end

end

发送鼠标按大码键消息。 例如该肢仿昌按钮的历扒句柄为 920570 var CH: HWNDbegin CH := 920570SendMessage(CH, WM_LBUTTONDOWN,0,0)SendMessage(CH, WM_LBUTTONUP,0,0)end

---