sample - record.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 23 行

unit a;

procedure main;
var
  pDlg: TForm;
  pControl: TControl;
  pPoint: TPoint;
begin
  pDlg := TForm.Create(nil);
  try
    pControl := TControl.Create(pDlg);
    pControl.Parent := pDlg;
    pPoint.x := 0;
    pPoint.y := 0;
    pControl.ClientToScreen(pPoint);
    pDlg.ShowModal;
  finally
    pDlg.Free;
  end;
end;

end.