ljmanage(过客)进来接粉儿！凉粉儿~

Question

function TfrmJMMain.FreeUIForm: Boolean;
begin
  if ( PfrmUIForm <> nil )
     and Assigned(PfrmUIForm^) then
  begin
    PfrmUIForm^.Close;
    if Assigned(PfrmUIForm^) then
    begin
      Result := False;
      Exit;
    end;
  end;
  Result := True;
  PfrmUIForm := nil;
end;procedure TfrmJMMain.UIFormDock;
Var
  DockPos : TRect;
begin
  {注：停靠的窗体要比pnlUIfrm宽加8高加26}
  if ( PfrmUIForm <> nil )
     and Assigned(PfrmUIForm^) then
  begin
    DockPos.Top := 0;
    DockPos.Left := 0;
    DockPos.Right := pnlUIfrm.Width;  //pnlUIfrm为Panel名称
    DockPos.Bottom := pnlUIfrm.Height;
    PfrmUIForm^.Dock(pnlUIfrm , DockPos);
    PfrmUIForm^.Show;
  end;
end;显示窗体时这样用
  if Not Assigned(frmJMBasedProList) then
  begin
    FreeUIForm;
    frmJMBasedProList := TfrmJMBasedProList.Create(application);
    PfrmUIForm := @frmJMBasedProList;
    UIFormDock;
  end;转自过客~

Answer 1

他睡觉去了，让我转交.........HOHOHOHO~~~~~~~~~~~````

Answer 2

CSDN上的星星只能说明热情程度，同时也就说明释放热情的时间比较多，最后就证明工作比较清闲或者是没有工作，呵呵.........一家之言，仅供参考，如有冒犯，纯熟偶然.........HOHOHOHO~~~~~~~~~~``

Answer 3

过客兄：  告诉你一个不幸的消息，好象CSDN上三星没有分数界限，一定要为CSDN做出特殊贡献....