DElphi7达人~求重复判断语句

procedure TForm1.Button1Click(Sender: TObject); var a,b:integer; begin a := 1; b := 0; while True do begin b := StrToInt(InputBox('输入窗口', '请输入：', IntToStr(b))); if a=b then begin ShowMessage('输入正确！'); break; end el...

fsLowered的类型是TFrameStyleEx，此类型的声明在RzComMon单元里面。所以要引用RzComMon单元，即在uses下面加上它。