被包含的过程只有包含它的过程可以调用

解决方案 »

  1.   

    当作普通过程用就可以,不过功能要强一些,比如内嵌过程可以直接用上级过程内参数等等
      

  2.   

    过程可以嵌套!!!!!!!!!!!!!!!!!!!!!!1 
      

  3.   

    to wd2306(木头) :可以.但我不知道怎么看?
    全部程序在这里:
    procedure TimerProc(uTimerID, uMessage: UINT; dwUser, dw1, dw2:
        DWORD); stdcall;  procedure InvertDirection(var Step: Integer);
      begin
        if Step > 0 then Step := -1 else Step := 1;
        Step := (Random(SPEED) + 1) * Step;
      end;var
      I : Integer;
      DC: HDC;
      R : TRect;
    begin
      for I := 0 to PointNum - 2 do
      begin
        { 穝–狠翴畒夹 }
        Inc(Points[I].X, Steps[I].X);
        Inc(Points[I].Y, Steps[I].Y);    { 代畒夹琌禬 pnlCanvas 絛瞅, 狦禬, 玥はㄤ簿笆よ,
        穝睹计眔硉瞯 }
        if (Points[I].X <= 0) or (Points[I].X >= pnlWidth) then
          InvertDirection(Steps[I].X);
        if (Points[I].Y <= 0) or (Points[I].Y >= pnlHeight) then
          InvertDirection(Steps[I].Y);
      end;
      Points[PointNum - 1] := Points[0];  { 盢 pnlCanvas 睲埃フ︹穝酶籹 Bezier Ρ絬 }
      DC := GetDC(pnlHandle);
      GetClientRect(pnlHandle, R);
      FillRect(DC, R, GetStockObject(WHITE_BRUSH));
      PolyBezier(DC, Points, PointNum);
      ReleaseDC(pnlHandle, DC);
    end;
      

  4.   

    噢有点错误
    应该是“比如内嵌过程可以直接用上级过程内参数、变量等等”
      

  5.   

    各位:
       那需要怎么用呢?什么时候用呢?
      

  6.   

    只要是在上级过程体内,随便什么时候用,跟你说过跟其他过程调用没什么区别